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SCIENCE DATA PROCESSING 

The format of science (VCO) data from the 
acquisition system has been given in Figure 7 of 
J.D. Redman's report on data digitization. These data 
are processed in four major stages: 1) frequency and 
quality determination, 2) merging, 3) demultiplexing , 

4) calibration. 

In the notation of Figure 7 of Redman's report, one 
VCO measurement is recorded by 12 digits as follows 
N * (Nj^ N 2 *^ 2 ) 2^0 * number of 5.2 KHz cycles counted 

V = V 2 duration of M VCO cycles (ysec) 

R = Rj ^2 ^3 ^4^10 ” duration of N 5.2 KHz cycles 

Note that only the four low-order digits of R are recorded on 
tape. The high-order digit Rq roust be inferred from V and 
the operational characteristics of the DAS. 

The determination of Rq is based on the DAS design 
criterion that V and R should not differ by more than 
1/500 sec = 200 ysec. Since Rq represents the 10000's 
unit of usee, Rq can conceivably be only one less, one 
greater, or equal to V^^. The algorithm diagrammed in 
Figure 1 bases the choice of one of these on the criterion 
of minimizing the difference between V and R. This 
function was performed in the routine FREQ. 

The foregoing discussion assumed that the DAS output 
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conformed to specifications. Becauce this was not 
always true, a syntax analysis was performed by the 
FREQ routine. Four types of errors were recognized, 
and an error indicator was set c.ccording to the seriousness 
of the errors which were found. The error indicator was 
set to the sum of the following individual error levels; 
level 0 : no errors 

1 : the measured VCO frequency was outside the 

range 300 - 3000 Hz., which spans the 
expected frequencies . 

2 ; the measured reference frequency was more 

than 100 Hz different from the mean reference 
frequency of 5213 Hz. 

4 : the measured periods of VCO and reference 
cycles differed by more than 210 jisec 
(1/5200 sec + 9.2%) . 

8 : one or more of the N, V, or R counters read 
zero. 

Error level 8 was a terminal error, for which the 
frequency could not be computed and was set to zero. Error 
level 4 indicated a malfunction of the zero-crossing detector 
for the reference signal or a malfunction in the start/stop 
circuitry for reference period counting. However, the 
effects of a level 4 error could be quite small, especially 
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for low VCO frequencies. Error level 2 indicated either 
a large random fluctuation in the 5.2 KHz multivibrator 
in the DSEA, a tape-speed variation, or a counting problem. 
The tape-speed variation was probably the most frequent 
cause of this type of error, in which case the VCO 
frequency would still have been correctly determined. 

Error level 1 simply chopped off the allowable range of 
frequencies to a range spanning those observed in 
instrument calibration. VCO frequencies below 300 were 
set to 300, and those over 3000 were set to 3000. 

For error levels below 8, the VCO frequency was 


computed by the following formulas: 


V 

= 4 ^ 
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Each of the four final science tapes (SEP400-403) 
was processed with the program CHANGE, which used FREQ 
to change all VCO readings to frequoncy-status pairs. 

The output data were stored as four files on tape SEPD04, 
as shown in Figure 2. Since there were two bad records 
on tape SEP403, the frequency values from these records 
were set to zero, and the error status values were set 
to 16. 

The drum-file copies of CHANGE output (T400-403) 
were merged by the program MERGE4. Output was stored in 
the first file of tape SEPD05. Merging was performed 
according to the following rules. 

1. Taking the four corresponding readings from 
files T400-403, reject those not having the 
lowest error status. 

2. Search the values with lowest error status for 
the pair of values with the smallest discrepancy. 

3. Average the values from the pair with smallest 
discrepancy. Use this value. 

The reason for rule 1 is simply to use the most trust- 
worthy values available, judged according to the seriousness 
of syntax errors. Rule 2 guarantees that the most repeatable 
measurements are used. Rule 3, assuming that the errors 
of measurement are Gaussian (which they are only approximately) , 
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reduces the measurment error by a factor I/J2 . 

MERGE4 provided the following ancillary functions: 

1) printout of all non-zero status-value data which were 
used, 2) distributions of frequency discrepancies for 
the values from rule 3 above, broken down by 100 Hz 
intervals, with 5 Hz. granularity. These are shown in 
Figure 3. 3) printouts of all points where the 

discrepancy of accepted values was large (Figure 4) . 

The discrepeuicy distributions from MERGE4 were 

stored in the drum file STATS. Program PRPL graphed the 

distributions as histograms on the line printer (Figure 3) . 

These graphs show the frequency of occurrence of various 

discrepancies, where the source of the first accepted value 

preceeds the source of the second accepted value in the 
sequence SEP400, 401, 402, 403, and the discrepancy 

is the first accepted value minus the second. 

Science data output from MERGE4 were still in 
multiplexed form (i.e., data of various types were mixed 
together in a known sequence) . The DEMUX program 
demultiplexed the data, collecting all data of one type 
(e.g. 4 MHz NS X) into a single array. Because the 
memory capacity of the computer was insufficient to 
hold all the data, the demultiplexing was done jn two 
stages. Input data were first demultiplexed in core, 



Figure 3 


Distributions of discrepancies between the two accepted 
values (i.e. the values with lowest error level and 
smallest absolute discrepancy) . Data are grouped 
according to the mean frequency, in 100 Hz intervals, 
and plotted with 5 Hz granularity. 
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j „ 50 records at a time, then output to random-access drum. 

The next 50 records were then demultiplexed in core, 
eind these data were concatenated to the previous data 
on the drum. The random access feature was used to 
skip over space reserved for as yet unprocessed data. 
Figure 5 shows the general flow of the DEMUX program 
as well as diagrams of core and drum space allocations. 

The DEMUX program contained a coding error which 
•deleted data from the arrays for 4, 8, 16, and 32 MHz. 

The error occurred in the final transfer of data from 
drum to tape, in subroutine TAPER (internal subroutine 
in DEMUX) . Figure 6 diagrams the nature of the error. 

In the tape output routine, the entire 400*N data 
array (N is the number of samples per record of the 
data type being considered) should have been processed 
at once. In Figure 6, the data array in the drum 
diagram should have been written on tape as 4 contiguous 
parts of 387 values, truncated to 387. The effect was a 
compression of the data - 13 value.9 missing after every 
387 values on tape. There are (N-1) such error regions. 

At the end of the tape arrays, there is garbage of 
length 13* (N-1) . 

The error is complicated somewhat by the next stage 
of processing. Because of the design of the DAS, the mode 
word appearing in record i predicted the receiver mode in 

r. 
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J^ecord i + 1. To make the mode array agree exactly 
with the data arrays, with no shift, N points were 
dropped from the start of each data array. This was 
accomplished by reading N blocks of 387 values 
(concatenated) , deleting the first N values, and writing 
N blocks of 386 values. This was done by the REBLOCK 
program. The output was stored in drum file VCO. 


Location of errors - data is 

locations : 

SAMPLE # 

4 MHz 385 

8 MHz 383 

770 

1157 

16 MHz 379 

766 

1153 

1540 

1927 

2314 

2701 

374 
761 
1148 


missing after the following 

APPARENT TIME PROM START 
0:20:47 

0 : 10:20 

0:20:47 

0:31:14 

0:05:07 

0 : 10:20 

0:15:34 

0:20:47 

0:26:01 

0:31:14 

0:36:28 

0:03:06 

0:06:19 

0:09:32 


32 MHz 
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* f 

SAMPLE # APPARENT TIME FROM S"ART 




1535 

0:12:45 

1922 

0:15:58 

2309 

0:19:11 

2696 

0:22:24 

3083 

0:25:37 

3470 

0:28:50 

3857 

0:32:03 

4244 

0:35:15 


To correct the timing errors, 13 filler values should 
be inserted following each of the tabulated error locations. 
This should be done with care, since at 8, 16, and 32 MHz 
the insertion of the first 13 fillers moves the location 
for insertion of subsequent sets of 13 fillers. The last 
13* (N-1) values should be discarded. 

The next step of processing was conversion from VCO 
frequencies to dB values for scientific data, and from 
VCO frequency to temperature. The calibration data for 
the flight unit were typed in and stored in drum files 
TESTLEVELS and VCOFREQS. These data are printed out in 
Figure 7. The receiver was operating in the medium (65*) 
to hot (105*) and above temperature range during the 
entire traverse, so the cold calibration was ignored. 

A two-dimensional linear interpolation was done by 









I 



I' 




I 

i 


s 



-9- 

CALIBRATE, first determining the temperature, then using 
the temperature to interpolate between the medium and 
high temperature dB vs. frequency curves. Since the 
calibration data were given as VCO frequency as a 
function of dB input power, the inverse function first 
had to be determined. This was done by linear inter- 
polation for VCO frequencies in 1 Hz steps from 300 Hz 

to 3000 Hz. The dB levels for frequencies below/abovc 
the lowest/highest calibrated value were set to the lowest/ 

highest value. Interpolation was not done between these 

1 Hz values - they were used purely as a lookup table. 

The gramularity of the data (near the center of the 

calibration curves) is about 1/27 dB, or .9% on a linear 

power scale. 

Up to this time, there has been no mention of the 
disposition of the following arrays: MODE, TEMP, TXOFF, 

CAL. The contents of each will be described here. 

The MODE array consists of 386 words of the form 
(MAR)^q, where M (the 100 *s digit) is 1 or 2 depending 
on whether the receiver was in sync'ed or sync-search 
mode during the i^^ record, corresponding to the i^** 
word in the MODE array. The 10 's digit. A, is the 
antenna indicator. Values 1, 2, and 3 correspond to the 
X, y, and Z antennas during synch search and to the 



Ficute T . fUiUT UNtr c/^uefi.nr/eM 

1 MHZ 



X 

ANTENNA 

Y 

ANTENNA 

Z 

ANTENNA 

DBM 

COLD 

MED 

HOT 

COLD 

MED 

HOT 

COLD 

MED 

HOT 

134.23 

380 

366 

349 

378 

360 

342 

383 

373 

352 

129.24 

418 

400 

376 

412 

390 

366 

424 

408 

383 

119.29 

645 

631 

57 4 

936 

614 

559 

653 

640 

582 

109.37 

947 

940 

899 

944 

936 

893 

950 

943 

901 

-99.41 

1202 

1 195 

1168 

1201 

1196 

1 167 

1203 

1198 

1 170 

-89.54 

1420 

1424 

1418 

1421 

1426 

1417 

1422 

1426 

1 420 

-79.7 5 

1684 

1686 

1679 

1684 

1686 

1679 

1684 

1686 

I 680 

-69.62 

1967 

1959 

1952 

1968 

1959 

1952 

1968 

1959 

1953 

-59.68 

2259 

2239 

2225 

2260 

2239 

2225 

2259 

2232 

2225 

-49.74 

2517 

2492 

247 1 

2518 

2492 

2471 

2517 

2492 

2472 

•39.80 

27 69 

27 59 

27 44 

2770 

27 58 

2743 

27 69 

27 58 

27 44 

• 34. 84 

2897 

2880 

287 3 

2880 

2876 

2873 

2879 

2879 

287 4 

-29.86 

2946 

2962 

2970 

2948 

2960 

2969 

2946 

2959 

2969 


2 MHZ 

X 

ANTENNA 

Y 

ANTENNA 

Z 

ANTENNA 

DBM 

COLD 

MED 

HOT 

COLD 

MED 

HOT 

COLD 

MED 

HOT 

134.56 

387 

37 6 

356 

394 

378 

356 

387 

37 9 

355 

129.56 

442 

422 

391 

449 

424 

390 

442 

421 

393 

119.61 

691 

680 

620 

698 

682 

620 

694 

683 

625 

109.69 

972 

964 

924 

972 

962 

919 

97 4 

966 

925 

-99.72 

1217 

1213 

1 190 

1216 

1212 

1 186 

1218 

1215 

1191 

-89.78 

1435 

1441 

1435 

1434 

1441 

1433 

1435 

1442 

1435 

-79.88 

1698 

1701 

1689 

1698 

1700 

1698 

1699 

1703 

1698 

-69.93 

1982 

197 3 

1970 

1982 

1974 

1970 

1983 

1975 

1970 

•60.01 

2272 

2253 

2242 

227 2 

2253 

2242 

227 3 

2254 

2243 

-50.04 

2530 

2507 

2489 

2529 

2502 

2489 

2532 

2508 

2489 

-40.10 

27 81 

277 4 

2763 

2781 

277 5 

2763 

2783 

2776 

27 63 

-35.14 

2890 

2895 

2892 

2890 

2894 

2892 

2892 

2895 

2892 

-30.16 

2948 

2967 

2979 

2947 

2965 

2978 

2951 

2966 

2978 


4 MHZ 

X 

ANTENNA 

Y 

ANTENNA 

Z 

ANTENNA 

DBM 

COLD 

MED 

HOT 

COLD 

MED 

HOT 

COLD 

MED 

HOT 

135.05 

392 

380 

361 

393 

382 

361 

394 

380 

360 

130.06 

447 

430 

399 

448 

429 

401 

449 

428 

400 

120.12 

701 

690 

637 

696 

690 

637 

698 

689 

637 

110.20 

980 

97 4 

938 

980 

975 

938 

979 

97 4 

937 

100.23 

1446 

1224 

1204 

1225 

1225 

1204 

1224 

1223 

1203 

-90.29 

1626 

1451 

1447 

1444 

1454 

1448 

1444 

1452 

1447 

-80.38 

1709 

1713 

17 12 

1709 

1714 

1712 

1707 

1715 

1712 

-7 0.44 

1993 

1986 

1984 

1993 

1987 

1983 

1993 

1986 

1983 

-60.52 

2280 

2263 

2255 

2282 

2265 

2252 

2281 

2263 

2254 

-50.55 

2540 

2518 

2501 

2540 

2519 

2501 

2539 

2518 

2501 

-40.63 

2789 

2783 

277 4 

2789 

2784 

2774 

2789 

2784 

2774 

-35.66 

2895 

2900 

2900 

2895 

2901 

2899 

2895 

2901 

2899 

•30.67 

2947 

2967 

2980 

2950 

2966 

2978 

2952 

2969 

2978 


8 MHZ 



X 

antenna 

Y ANTENNA 

Z 

ANTENNA 

DBM 

COLO 

MED HOT 

COLD MED HOT 

COLD 

MED HOT 


-134.86 

437 

427 

401 

433 

430 

401 

435 

430 

403 

-129.86 

515 

505 

464 

515 

501 

462 

515 

502 

461 

-119.98 

789 

795 

7 47 

789 

795 

7 47 

792 

796 

7A5 

-110.02 

1059 

1055 

1018 

1060 

1055 

1019 

1060 

1055 

1019 

-100.04 

1292 

1294 

1283 

1292 

1295 

1283 

1293 

1295 

1284 

-90. 1 1 

1 524 

1532 

1527 

1524 

1532 

1 528 

1527 

1 533 

1 528 

-80.18 

1797 

1799 

1798 

1796 

1801 

1800 

1798 

1802 

17 98 

-70.26 

2083 

207 4 

2068 

2084 

207 4 

2069 

2084 

2075 

2068 

-60.34 

2361 

2340 

2327 

2361 

2341 

2327 

2361 

2341 

2327 

-50.36 

2618 

2601 

2583 

2618 

2600 

2583 

2618 

2601 

2583 

-40.41 

2855 

2857 

2851 

2855 

2857 

2851 

2856 

2858 

2851 

-35.44 

2937 

2950 

2955 

2938 

2949 

2955 

2938 

2951 

29 55 

-30.47 

2949 

297 0 

2984 

2954 

2969 

2983 

2953 

2973 

2983 


16 MHZ 

X 

ANTENNA 

Y 

ANTENNA 

Z 

AN TENNA 

DBM 

CXD 

MED HOT 

COLD 

MED HOT 

COLD 

MED HOT 


-134.58 

430 

430 

408 

433 

437 

412 

433 

431 

410 

-129.60 

504 

501 

468 

521 

51 1 

480 

514 

510 

47 1 

-119.80 

777 

795 

7 56 

780 

801 

765 

781 

797 

7 58 

-109.91 

1051 

1059 

1033 

1053 

1061 

1035 

1053 

1059 

1032 

-99.92 

1285 

1299 

1297 

1286 

1300 

1299 

1287 

1300 

1298 

-90.00 

1517 

1 538 

1543 

1518 

1538 

1545 

1519 

1539 

1 544 

-80. 1 1 

1799 

1813 

1817 

1802 

1810 

1821 

1799 

1812 

1822 

-70.31 

207 6 

2081 

2082 

2078 

2080 

2082 

2077 

2081 

2083 

-60.42 

2354 

2344 

2338 

2354 

2345 

2340 

2354 

2345 

2339 

-50.43 

2612 

2605 

2596 

2612 

2605 

2597 

2612 

2605 

2596 

-40.51 

2853 

2865 

2868 

'2854 

2865 

2867 

2854 

2865 

2866 

-35.54 

2940 

2956 

2967 

2940 

2955 

2966 

2940 
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frequency pairs (32, 16), (8, 4), (2, 1) during calibratio.i 
(CAL) and transmitter off (TXOFF) frames. The I's digit, 

R, tells whether the receiver re-synced at the beginning 
of the record. The MODE array is the first array on the 
tape. 

The TEMP array is self-explanatory. It gives the 
temperature in degrees Fahrenheit. It is the second 
array on the tape. 

The TXOFF data fill 6 tape records (records 3-8) . 

These were recorded during times when the transmitter was 
txirned off, but the receiver was active. Figure 8 shows 
the contents of the TXOFF records. 

Figure 8 

TXOPP ARRAY - TRANSMITTER OFF DATA 
6 RECORDS ' 386 WORDS/RECORD 


MODE DIGIT A FREQ 



The TXOFF arrays were fully calibrated (converted to dB) 
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In the same way as the science VCO data. This procedure 
required that the TXOFP data be present in core as the 
interpolation was being done for each frequency - antenna 
combination (the alternative was to generate the dB vs. 

VCO tables twice) . The TXOFF array was therefore read into 
core preceeding the science VCO data, calibrated along with 
the science VCO data back to its position following the 
TEMP array. 

The CAL array consists of three kinds of data: 

1) receiver front-end noise measurement, 2) noise-diode 
source amplified by 20 dB, and 3) noise diode soui'ce 
unanqplified. It contains 6 records, as diagrammed in 
Figure 9. These are the 9th-14th records on tape. Because 
these data are intended for use in calibrating the VCO - vs. 
input power characteristics of the receiver, CAL data were 
left as VCO frequencies. 

Figure 9 


CAL ARRAY - CALIBRATION DATA 

6 RECORDS 

386 WORDS/RECORD 


MODE DIGIT A 



G « Input grounded (front-end noise) 
MA « Noise diode asqplifted 20 dB 
N “ Noise diode unanqplified 


■=^ FREQ 
32 
8 
2 

16 

4 

1 
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Drum file DB-2 tv^presented the full set of final 

science data. It was copied verbatim to the second file 
of the distribution tapes SEPD07 - DIO. 

For use in scientific Interpretation, the turn at 
EP4, which was "removed” from the navigation data, had 
to be specially handled for scientific data as well. The 
treatment which was applied was: the turn was identified 
by the stops preceeding and following the turn. The last 
values which existed prior to the execution of the turn, 
during the stop, were repeated through the time when the 
turn was completed. This gives the appearance for plotting, 
that the turn was not made. This function was performed 
by the STRAIGHTEN routine. The output was stored in 
drum file DB-2-STR. 

The output from the navigation data processing, drum 
file ARROW- RANGES . was merged with DB-2-STR and stored in 
drum file TRAVERSE by MERGER. 

The routine BCDTAPE was used in two versions (which 
differed only in the number of records they processed) 
to convert the binary data in TRAVERSE and DB-2 into 
BCD mode for tape transmission. Title arrays were placed 
at the beginnirr of each output file, named TRAVERSE-BCD 
and DB-2-BCC, respectively. These files were copied to 
tapes SEPDO7-D10 for transmission. 

The detailed format of transmission tapes SEPDO7-D10 


is given in Figure 10. 
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Distribution Tape Format 
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7 -Track 
Even Parity 
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Unlabeled 
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Two Files 

First File: Straightened Science & Na^ . Data. 
Second File: Unstraightened Science Data only 
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structured exactly like File 1 except range arrays are absent. 



APPENDIX 


Programs for processing science (VCO) data and 
merglnlng it with Nav Data. 
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C BCUTt^PES 

C COMUGRTS RILES WITH SSS-HORU RECORtiS TO BCD 

D I MENS I OH I f F'ln ( 38S ? E ) » OUTPU f l 3S6 » 2 ) ? T I T LE •. 336 i 
C 

C SET OUTPUT TOPE PRRITV 

COLL F'UlPOR ( Gj > £0 

C REOIi OHD COPY TITLE 

PE0ti(£>3£i0;i TITLE 
£00 FORMO r U . SOS j 03 ) 

COLL WRt'JO IT ( S > T I TLE > 3S6 1 5''? > ■?■'? i 

C REOD OHD COPY MODE 

COLL RDWOIT (7» INPUT? 38S» $8? $9» P?) 

ENCODE (100? OUTPUT) ( INPUT ( I » 1 ) > I ^ 1 > 3S6) 

100 F0RM0T(££I6) 

COLL I'lRWO I T ( 8 ? OUT PUT ? 386 » $8 » $- 9 ) 

C REOD» CONUERT? OND COPY EUERYTHING ELSE 

IBUF^l 

COLL PREOD ( 7 » I NPUT > 386 > $9 » $9 > P? ) 

DO I IREC~1»£16 
IBUF=-3-IBUF 

COLL PRE0D(7» INPUT! 1 » IBUF) ,386? 110? $16?^8) 

COLL CONURT ( I NPUT (1 ? I BUF ) ? OUTPUT ( 1 ? 3- I BUF i ) 
COLL PWRITE(8?0UTPUT(1?3~IBUF) ?386?|:8?4:8) 

1 CONTINUE 

COLL PU|M0IT(S?58?$8) 

COLL FILEND(S) 

STOP 

10 WRITE (6? 600) 

600 FORMOT(» UNEXPECTED EOF REOCHED ON UNIT 7Vi 
8 STOP 


C SUBROUTINE FOR REOL COWERSIONS 
SUBROUTINE CONURT ( INPUT?OUTPUT) 
REOL INPUT ( 386 ) ? OUTPUT ( 386 ) 
ENCODE ( 100? OUTPUT ) INPUT 
100 FORMO f(££F6.1) 

RETURN 

END 

,1A 


rm.cow 


COP I IIS PFiRL DRTR TRPG.S 
PERL ORTR ( SSS > S ) 

CRLL PWPRP 1 9 > 0 a 
CRLL 7RRNI(7jc:1S) 

CRLL TPRNS(Sj 1S9? 

STOP 


SUBR OUTINE T RRNS f I UN 1 7 » NREC ) 

CRLL PRERB ( f ^.IN I T » BRTR ^ 386 » ?-9 ft-9$ 4-9 » 

IBUF=1 

BO 1 IREC-1»NREC 

CRLL PRERB ( 1UNIT» BRTR ( 1 » 3-IBUF ) » 3S6» :?-9» 49? 
CRilL UIRWR I T ( 9 » BRTR U » I BUF ) , 386 » 49 » 49 ) 

1 IBLlFx3-IBUF 
CRLL FILENB(9:i 
CRLL PRMR I T ( I UN I T » ^8 » $8 j 4-8 ) 

8 RETURN 

9 STOP 
ENB 

oriciM:s3 
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lai£2dj}ctifin 

This rsp;>rt is a saasacy of interaediate stage 
processing operations perforaed on the data froa the 
Apollo 17 sarface electrical properties expctiaent. 
The starting points for these operations are the 
files designated sell, SCI2, and SCI 3; the contents 
of these and all generated files, plots, and listings 
are suanarized in table 1* File sell is a 
preliainary release of the data; files SCI2 and SCI3 
are the final data sets, respectirely vith and 
without data for the EP>4 turn, prepared by R. Watts, 
tape nuaber 3EPD09. (N.B. - subseguent references 
to reaoval of tnrn data refer to work described in 
this report, rather than to Watts* initial 
processing.) 

The diagraas in figure 1 give an indication of 
the seguences of processing operations. More 
d* bailed inforaation is provided by the descriptions 
of the prograas. Annotated listings are also 
included, as well as precise tabulations of the 
foraats of the various files. The prograa listings 
include descriptions of all required card input data. 

In addition, two coaplete sets of plots (SCI2n) 
are Included as a record of the data; in one set dF 
values are plotted versus the range in aetres, and ir 
the second set versus the range in wavelengths. 
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EPS Listing 
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EPS Plot 




I 

♦ 1 



EP4A listing 




• 1 

dB data for 490 a* 

f. 
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<* range <• 535 a. 


EP4A Plot 
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and LBV in notion 


VAV1 





tines and odoaeter 
coants relative to 
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beginning of traverse 
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»T1 Plot 



0 

1 

to ranges 

- 

sen 


0 0 0 0 

0 

* 


V 

sen Listing 


0 0 0 0 

0 

* 



SCX1A 

♦ 



• 1 

1 

dB data sanpled at 
intervals of 0.1 


SCX1A listing 

0 



♦ 1 

1 

wavelength 

Ts 

8CX1A Plot 
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I. H T T C R D 

A 0 R X A A B 

B D H - L W gaies 

E E P 0 G 

L F K 

F 


SCI2 

SCI2 Listing «*«*•« 

SCZ2 Plot « 

SCI2A « 

8C12A Listing * 

SCI2A Plot 

SCI2B Plot « * 

SCZ3 * * « « * 

SCI3 Listing 
SCI3A * 

SCI3A Listing * 

8CI3A Plot * 

STAT1 ♦ • • • 

TX01 Listing • * 

TX01 Plot * 4 


no data foe EP-4 


no data for EP-4; 
dB data staapled at 
intorvals of 0.1 
wavelength 


range data froa SCI2 

I dB data saapled at 

I intervals of 0.1 

i wavelength 

I 
I 

also contains speed data 

I all data except 490 a. 

I <■ range <* 535 a. 

I and LBV in notion 


Table 1 • Data set snnnary (contianed) • 
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The Stack 


A number of routines use a large array (named 
DATA, hereafter referred to by name, or as "the 
stack") and a set of indices to the array, as the 
basis of a system for manipulating range and dD data. 

In most cases a particular set of range or dB 
information is contained in several blocks, which it 
is generally convenient to combine into one large 
block before processing. To accomplish this, three 
indices are associated with the stack as diagrammed 
in figure 2: IXX and IXY indicate the first words of 
range and dB data respectively: lOBG gives the 
location of the first word into which data should be 
read to make an extension to the block currently 
being assembled. Other parameters relating to the 
stack may be defined where necessary. 

The basic procedure to b<' used to process a 
complete file is outlined in figure 3. In this 
description "read a block" is taken to mean that the 
contents of one block from the input file are placed 
in locations lOPO through lORG ♦ N - 1 of the stack; 
the meaning of "last" is that given to It by the 
LUNIN routines. 


a 
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DATA 



Figure 2(a) 


Exaaple of stack use: 
asseabling a range array* 
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DATA 


12000 first block of 

dn data for tho 
next component 



Figure 2 (c) - Exaeple of stack use: 

beginning the d!l array 
for a nev conponent. 
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l2 for frequ<»ncy = 1, 2.1, 4, R.1, 16, 32.1 
iorg =1; ixx =1; ■ = 0; 

ASSEMBLE THE RANGE ARRAY: 
re peat 

"read a block; 
iorg * iorg ♦ n; 
m = n ♦ 1 ; 
until last; 

ixy = iorg; 
r epeat 

1=0; iorg = ixy; 

ASSEMBLE THE DB ARRAY FOR ONE COMPONENT: 
££££at 

read a block; 
iorg = iorg ♦ n; 

1 = 1 * 1 ; 
until 1 = m; 

perfora required processing: 

aniU 

en d ; 


Figure 3 


Algoritha for assenbly of arrays of 
range and dB inforaatlon. 
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Po cuBeptatio n Ro uti nes 


IHNALIST, L0NALST2, L0MALST3 

These routines produce complete listings of the 
data on files SCI1, SCI2, and SCI3 respectively. 

The data are read from SCI1 and SCI2 by LUNIN and 
LnNTN2 respectively, and printed in blocks 
corresponding to the physical records on the files, 
fifteen values per line. Each block is preceded by a 
heading, containing the character information 
returned by the input routine, identifying the 
contents of the block. 

The procedure for listing SCT3 is more complex, 
since the file contains no range data. LUNALST3 
invokes L0NIN2 to read a record from SCI2, and 
inspects the returned value of ITYPE(2). Tf this 
value is five, indicating a block of range data, the 
block is listed. Otherwise, LONINl is called to read 
a record from SCI3, which replaces the data from 
SCI2, and the new block is listed. 


N.B. A bug, in all three routines, results in the 
Identification of transmitter-off, calibration, 
and one megahertz range and d3 data being printed 
incorrectly, as indicated in table 2. (The 
numbers in parentheses indicate how many records 
are affected.) 
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conte nts of b^ock 


print ed 


teaperature (1) 
transnltter-of f ( 1) 
transaitter-of f (5) 
calibration (1) 
calibration (5) 

1 NHz. range(l) 

1 HHz. dB(6) 


teaperature 

NONE 

transaltter-of f 
NONE 

calibration 

NONE 


NINE 


Table 2 - Incorrectly labelled blocks. 
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Ziitiaa Routine s 


LUNACOPY, L0HACPY2, 10NACPY3 

These routines read files SCII, SCI2, and SCIl 
respectively, and produce the binary files SCI1A, 
S('I2A, and SCI3A, containing the label records fron 
the input files, and six blocks of NPTS dB values 
each, for each frequency, after interpolation at 
intervals of 0.1 wavelength. NPTS varies with 
frequency, and is either the naxinun number of 
interpolated values which could be generated, or 
1000, whichever is smaller. 

The stack mechanise is used to set up the arrays 
of range and dB values to be given to the 
interpolation routine, and the array PAN1E is 
initialized with the appropriate equivalent in metres 
of 0, 0.1, 0.2, ... 99,9 wavelengths. Subroutine 

INTPOL is called to do the interpolation, and returns 
its results in array VCO. 

After interpolation the values of NSTART and 
NPLOT (set by INTPOL) indicate the first and last 
elements of VCO which contain interpolated results. 
Before writing the array on the output file, the 
programs set VCO(1) through VCO (NSTAPT- 1) and 
VCO (NPLOT* 1) through VCO (1000) to zero. 


LONACPYU 

This program produces a binary file (RP4) of 
range and dB values for the turn at BP-4, using file 
SCI3 as input. The program is a simple modification 
of L0NAPLT4, in which the call to subroutine GAPLOT 
is replaced by a write statement which generates a 
record on file FP4, and a second statement which 
writes the contents of the record on the printer. 





I 
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LnNACPYS 

This progta* is used to generate file STAT1, 
containing temperature, calibration, and transmitter- 
off data, and arrays of the ranges at which the data 
were obtained. Also, a set of cru<^» LBV speed 
values, corresponding in tine to the transmitter-off 
data, is computed and written on the output file. 

The array of temperature values is simply copied 
from the input file (SCT2) . The associatel range 
data is the set of values for one megahertz, which is 
also copied directly onto the output file. (The one 
megahertz data were used since their occurrences are 
the closest in time to the temperature data - c.f. 
table 3.) 

Transmitter-off data are read from the input file 
in two grouos of three blocks each. For each group, 
the first, second, and third blocks contain data from 
the », y, and x receiving antennae respectively. The 
freguency for each sample is dependant on the group, 
and on the tens digit of the corresponding element of 
the node array: the first group contains data for 
freguencies of 32.1, B.1, and 2.1 megahertz, and the 
second group for 16.0, tt.O, and 1.0 megahertz, 
corresponding respectively to tens digits of 1, 2, 
and 3. The consents of the blocks of calibration 
data are arranged similarly, with blocks one and four 
containing values for front-end noise, two and five 
containing values for the noise diode, and values for 
the noise diode plus 20 dB amplification in blocks 
three and siz. 

Osing the number of the block on which it is 
working, and the appropriate contents of the node 
array, tho program generates arrays of values which 
nay be indeied by frequency, and either antenna in 
the case of the transmitter-off data, or noise source 
in the case of the calibration data. 


Hi ^ 
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ApproxiadtP range values corresponding to the 
above data are obtained by selecting the values 
closest to then in the tiaing segut^nce froa the 32.1 
aegahertx range array, and again using the contents 
of the aode array. Corresponding to each range 
value, an approxiaation of the LRV speed is coaputed 
by taking the difference of the imnediately 
succeeding and preceding eleaents of th» 32.1 
aegahertz range array. 


Rec 2 £d C 2 fitenis S££2£i C ontent s 

17 16 MH*. v.c.o. 

18 32 KHz. v.c.o. 

19 8 BHz. v.c.o. 

20 32 BHz. v.c.o. 

21 16 BHz. v.c.o. 

22 32 BHz. v.c.o. 

23 a BHz. V.c.o. 

24 32 BHz. v.c.o. 

25 16 BHz. v.c.o. 

26 32 BHz. v.c.o. 

27 8 BHz. v.c.o. 

28 2 BHz. v.c.o. 

29 16 BHz. v.c.o. 

30 32 BHz. v.c.o. 

31 1 BHz. v.c.o. 

32 synchronization/reset 
(also contains 

tesperat'ire data) 


Table 3 - Receiver tiaing segueni.e. 

Each record is 202.5 as. duration. 


1 

16 

BHz. 

▼ eCs Oi 

2 

32 

BHz. 

V.CmOi 

3 

8 

BHz. 

V • Ce Oi 

4 

32 

BHz. 

V.CsOi 

5 

16 

BHZ. 

VeCeOi 

6 

32 

MHZ. 

VeCeOi 

7 

4 

BHZ. 

VeCeOi 

8 

32 

MHz. 

VeCeO. 

9 

16 

BHZ. 

VeC.Oi 

IP 

32 

BHz. 


11 

8 

BHZ. 

▼ eCsOi 

12 

32 

BHz. 

r.CoOi 

13 

16 

BHz. 

VeCeO< 

14 

32 

BHz. 

V.C.O. 


15 transaitter-of f 

16 calibration 
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22iiti]ies 


lOHAPLOT, L0NAPLT2 

Thesv roatines prodace (CALCOBP) plots of <in 
vprs s distance, using interpolated data. LUNAPLOT 
is used for plotting the data in SCIIA; LUNAPLT2 «ay 
be used to plot data fros either SC12A or SCTIA, 

One naselist (PREO) control record is read for 
each frequency. The paraaeters which may he 

specified allow choice of coaponents, maximua and 
ainiaua wavelengths, and aariaun dB vtlue to he 
plotted. Filtering of the data before plotting aay 
be requested, a dB level nay be specified for 
plotting a reference aarh, and optional plot 
annotation aay be supplied. 

Subroutine PLINIT is called to initialize the 
plotting software. The actual plots are produced 
using the OATPtT entry point of subroutine SBPLOT. 


LniiAPtTl 

This prograa is used to generate (CAICOBP) plots 
of the data on SCI2, siailar to the plots produced by 
LPHAPLOT and L0RAPLT2. The prograa differs froa the 
others in that the data are not interpolated, and 
cannot be filtered before plotting; also, the 
portion of the data corresponding to the turn at EP*4 
is deleted before plotting. 

The prograa uses the stack aechanisa to prepare 
data for the plotting routine, Beaoval of the data 
for the turn is accoaplished as follows. After an 
entire array of range values haa been asseablad, the 
prograa locates the values to be deleted; then 
succeeding values are copied downward to aaiotain a 
contiguous set, and XORG is reset to indicate what is 





Apollo 17 SEP “ 21 


then the first free location. The indices defininy 
the gap are modified to apply to the dP segment of 
the stack, and each time a complete set of dP. data is 
assembled, an equivalent compacting operation is 
performed. 

Parameters to control the plotting operation are 
supplied on a set of namelist (CNTL) control records. 
The plotting is done using the PATPLT entry point of 
subroutine Sl’PLOT. 


L0NAPLT4 

This program produces (CALCOMP or (lOtiLD) plots of 
dp values for the FP-4 turn versus an implicit time 
scale, using data from file SCI?. The data are 
plotted as discrete points (marked by symbols) at 
equal horizontal intervals. Each component is 
plotted on a separate graph. 

Each set of values to be plotted is assembled in 
the main program and passed to subroutine GAPLOT, 
which produces the plot. The method used to define 
the desired values is basically the complement of the 
method used in the two preceding programs to remove 
the same data. However, in this case the required 
segments of the arrays are merely located; no 
compacting operation is performed. 


UIHAPITS 

This routine is a modification of LONAPLri which 
allows the distances to be expressed in either metres 
or wavelengths. In addition, transmitter-off values 
from file STATl are plotted (as points, rather than 
continuous curves) as a baseline for each dP curve, 
using entry point BASEL of subroutine SEPLOT. 
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ANTENNAO 

This program is used to generate plots of the 
patterns of the three receiving antennae, based on 
the data for the turn at EP-4 contained in file ’'P4. 
Two methods are available for computing the angle 
between the LRV and the SEP transmitter: the plotted 
points may be at equal angular increments throughout 
th*= whole range, or the navigation data may be used 
to compute an approximate angular displacement for 
each point. 

One namelist (CNTL) control record is required 
for each frequency. Parameters in each recotl allow 
choice of components to be plotted, initial angle and 
the difference between final and initial angles, and 
indices defining the data points obtained while the 
LRV was in motion; a Boolean value (NAVDAT) may he 
included to indicate whether or not navigation data 
are to be used in computing angles, and if this value 
is "true", a time must be supplied corresponding to 
the first data point in the set for which the LRV was 
moving. 

The main program organizes the control 
information, and then enters a loop, in each cycle of 
which it reads one record from file EP4, and if th^ 
data in that record are to be plotted, passes the 
data and required control information to subroutine 
ANTPAT. 

Subroutine ANTPAT begins by drawing a set of x 
and y axes and plotting a label indicating frequency 
and component. The total angular range is divided 
into equal Intervals, based on the number of points 
to be plotted. If navigation data are to be usad in 
computing angular displacements, the number of 
odometer counts at the beginning and end of the range 
are obtained by invocations of function ODCINT, and 
their difference (ODCRAN) is computed. The first dB 
value and the ini*’ial angle are converted to 
rectangular coordinates and the point is plotted. A 
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loop is thfn entered, which continues until the last 
data point has been plotted; the angle is 
decreaented (to give clockwise rotation) either by 
the constant amount, or by using the result of an 
invocation of ODCINT to deteraine a fraction of the 
total angle; rectangular coordinates are computed, 
and the point is plotted; the index of the next value 
is determined, using the supplied parameters. 

Function ODCINT is invoked with one argument, a 
time (T) in seconds. On the first entry a set of 
tines and corresponding left- and right-wheel 
odoneter counts are read froa the card reader. For 
each triple the time and the average of the counts 
are saved* The value of the function is a n odometer 
count obtained by linear interpolation, using T and 
the arrays of tines and corresponding average counts. 




-V P- 

i ^ 


Apollo 17 3BP - 74 


S tat i sti cal Routin gs 


CALSTAT 

This program is used to compute various 
statistics for each set of calibration data on file 
STATli the means and standard daviations of tha 
front-end noise; differences between the experimental 
noise diode values (with and without amplification) 
and values for the same data obtained from earth- 
based testing; the means and standard deviations of 
these differences. 

The computations for front-end noise data ar® 
straightforward, and should require no explanation. 
Host of the variable names begin with «E3''. The 
results of the calculations are written on FORTRAN 
logical eight, which is used as an auxilliary 

printer. 

The calculations for the noise-diode data (with 
and without amplification - *'with" is indicated by 
•*PA” as part of the name of each variable involved) 
involve computation of an earth-based value, using 
linear interpolation according to temperature, of the 
v.c.o. frequencies given in table 4. The difference 
between the experimental and interpolated values is 
computed; the remainder of the calculation consists 
of the accumulation and scaling of the appropriate 
sums. 
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transmitter 

noise 

diode 

noise diode 

frequency 



♦ amplifier 


660P 

112®F 

66®F 

112®F 

1. 

52 5.6 

508.6 

1167.7 

1157.7 

2. 1 

564.2 

546.2 

1208. 

1208. 

4. 

59 3.3 

566. 3 

1230. 

1230. 

8.1 

694. 8 

682.8 

1298.6 

1304.6 

16. 

756. 1 

770. 1 

129 3.7 

1306.7 

32.1 

833.9 

888.9 

1199.6 

1198.6 

Table 4 - Calibration 

data obtained 

, from 



earth-based tests. 


TTOSTAT 

This routine and its associated subroutines 
coapute nean values and standard deviations for each 
set of transiitter-off data on file STAT1. Separate 
statistics are calculated for periods when the rover 
vas stopped and in notion; in the latter case, values 
for the BP-4 turn are excluded froa the coaputations. 
Each set of values is displayed twice: once in order 
of increasing distance froa the transaitter, and once 
in order of increasing LRV speed. The dB values are 
also plotted versus LRV speed (if plots are not 
required, subroutine TXPLOT is siaply replaced by a 
dunay routine). 

A set of bounds, the sane as the 32. 1 megahertz 
bounds input, but adjusted relative to the beginning 
of the 32. 1 aegahertz range data rather than the 
kt^ginning of the turn data, is required as input. 
These values are used by function STOPT in deciding 
whether the rover was moving or stopped for each 
point within the EP-4 turn. 

The statistical coaputations, which are perforned 
in the aain program, are relatively straightforward 
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and should not require explanation. Data for ranges 
greater than 1667 metres are omitted from all 
calculations. A possibly confusing action is the 
assionment of -1 to certain elements of the speed 
array; the elements are those within the EP-4 turn 
for which the LEV was in motion. The speed values 
for these elements are computed (neaninglessly) as 
zero by L0NACPY5; the value of -1 indicates to the 
plotting routine that each such datum is to be 
ignored. 

Ordering of the data according to increasing 
speed is accomplished by subroutine BURBLP, which 
performs a bubble sort. Rather than interchanging 
elements within four parallel arrays (one of spteds 
and three of dB values) the routine uses an integer 
array (IX) of equivalent size# supplied by the 
calling program; IX (I) is initialized to I, and the 
contents of IX are used as indirect addresses to the 
actual data arrays, and it is these indices which are 
interchanged. When the sort is complete, the 
contents of IX indicate the order in which the other 
arrays should be indexed to obtain the data in order 
of increasing speeds. 

The dB data are plotted versus speed by 
subroutine TXPLOT, which is entered once for each 
frequency. For each entry, three sets of labelled 
axes are plotted (one for each receiving antenna) 
within an 8.5 by 11 inch area. The appropriate data 
points are then simply plotted on each set of axes. 


VLBIRT 

This program is used to compare results from the 
VLBI experiment with SEP navigation data ; the 
comparison is done on the basis of distance from the 
SFP transmitter. 

The 16 megahertz range data are read from file 
SCI2, and an array of corresponding times is 
generated, using a starting value which is read as a 
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control pacanetec* A pacaaetec aay also be supplied 
specifying a value to be added to each range value. 

The VLBI tines are converted froa hours» minutes, 
and seconds to seconds, and each pair of x and y 
coordinates is converted to a distance. An 
interpolated SEP range value is coaputed for each 
VLBT datna, using the tiae arrays; the difference 
between VLBI and interpolated SEP ranges is 
calculated, and sunnations are taken of the 
differences and their squares, which yield the aean 
difference and standard deviation. 

If PLOT is set to true on the naaelist control 
record, subroutine BTPLOT is called. The subroutine 
plots a set of tiae and range axes, using the 
supplied paraaeter SCALE. The SEP and VLBI ranges 
are then plotted versus tine in two siaple loops. 
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Auxillar;^ Routines 


LHNIN, L0NIR2, L0NIN3 

These subroutines are used to read data froa 
files sen, SC12, and SCI 3 respectively. ’floating- 
point data are returned to the invoking routine in 
the array DATA (not to be confused with the stack, 
although most of the programs which invoke these 
routines use a portion of the stack for passing 
data) ; fixed-point data are returned in array IDATA. 
The label record in SCI1 contains various fields, the 
contents of which are passed to the invoking routine 
through COHHON block LUMDAT. The label records of 
the other files consist solely of text, which is 
returned in IDATA. 

The values in the fixed-point array TIDX are used 
to identify each record read from the input file. 
The values are arranged in seventeen groups of three: 
the first value in each group indicates the nuoiber of 
records of that type which ar*» on the file; the 
second and third values are used to select 
alphanuner ic identification from arrays TTPE1 and 
TTPE2 respectively. The alphanumeric identification 
is returned in TYPE, and the second and third values 
from TIDX are returned in ITYPE (both TYPE and TTYPE 
are in tONDAT) . 

LUNIN obtains the value of N (the number of 
values in each record other than the label record) 
from the label record; the other two routines expect 
N to have been set by the invoking routine. 

The logical variables FIRST and LAST are set to 
true If the record read is the first or last of its 
type respectively (e. g. - the first of the twenty- 
four eight megahertz dB records) . 
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SFPLOT (DATPLT, PASEL) 

This routine (written by J. J. Proctor, 1973) has 
been aodified in a number of ways: 

(1) dB values may be plotted versus either 

wavelengths or metres; the decision is made 
by examining X5CALE: if it is less than ten 

it is assumed to he the number of inches per 
twenty-wavelength segment, while a value of 
ten or greater is assumed to indicate the 
number of inches per kilometre* 

(2) Entry point BASEL has been added in order to 
allow a set of points to be plotted in 
conjunction with each curve, using the same 
(relative) plotter origin. This is for the 
purpose of indicating a set of background 
values for each curve. 

(3) Low dB values ace no longer set to zero. 
Eurtbernore, the y-origin for each curve is 
now equivalent to (relative) zero dB, rather 
than the integral minimum dB value. This was 
necessary in order to keep the plot of 
background values on the page. 

(4) All the labels for individual curves, except 
the component identification, have been 
eliminated. 

(5) A reference mark for each curve is plotted on 
the y-axis, at a dB level set by the invoking 
routine. 

N.B. The entry point (THEPLT) and associated code 
for plotting theoretical curves have not been 
changed. However, since the program was 
modified, no attempt has been made to verify 
the integrity of this feature. 


Host of the code for the subroutine is concerned 
with setting up the axes and labels, and with placing 
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a particular curve on the graph. The range axis | 

Barkings depend on the value of XSCALF, as described I 

above, and extend from zero to the first multiple of I 

the chosen increment greater than the highest range | 

value in the data. A displacement is computed such I 

that curves on the graph will be equally spaced t 

vertically. All these operations are performed on 
entry at T)ATPLT, the entry point for plotting data i 

curves, if a n?w graph (not just a new curve) is to f 

be plotted. 

I 

The curves themselves are plotted in a 
straightforward manner, and a label is plotted at the | 

right-hand end of each, to provide component j 

Identification, After a component has bean plotted, 1 

the parameters defining the position of the curve are 
left unchanged until the next entry at DATPLT; i 

therefore an entry at BASEL will result in the 
baseline points being plotted on the same set of 
relative axes as the associated data curve. (If 
BASEL is invoked at any other time, it will not 
function properly.) 



IMTPOL 

This is a general linear interpolation routine. 

It accepts "input** arrays XIP and YIN, and an arr^y 
XOUT, of values on the same scale as XIN, for which 
interpolated values for YIN are required. The 
results are placed in array TOUT, and parameters 
NSTART and NPLOT are set to Indicate which values in 
TOOT are the result of successful interpolation, and 
which are undefined due to the corresponding elements 
of XOOT being out of the range of XIN. 

j 

! 

FILTER » 

I 

This is a subroutine which accepts array A, and | 

applies to its contents the filter whose coefficients - 

are contained in array P. Array B is used for i 
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accunalation of suns* and its contents are copied 
into array A before return to the calling prograa. 


PLIHIT 

This subroutine is used to systematize the 
initialization of the Dniversity of Toronto c’ALCOiir 
software package. Presusably it will be of interest 
only to users of that installation. 
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File Poraats 


sen, SCT2, SCI 3 

Pach of these files begins with a label record. 
The foraat of this record on file SCI1 is given in 
table 5, The label records for the other ^vo files 
are 2316 characters, consisting of 27 segaents of fit! 
characters each, followed by 48 characters of 
padding. Each 84-character segaent contains one card 
iaage and four padding characters. 

The next record in each file is the node array, 
in foraat 38616. Each eleaent is a three (Icciaal) 
digit nnaber, HAR; the significance of the values of 
the digits is indicated in tabic 6, (The notations 
"f1" and '•f2'* in the table refer to transait ter-off 
and calibration data descriptions given in t»ble 7.) 

The foraat of all reaaining records is 186F6.1; 
the contents of these records are given in table 7. 
(N.B. - file SCI3 contains no range data,) 




A6 run identification 

A6 site identification 

A6 traverse direction 

A6 f orvard/reverse traverse 

14A6 title 

16 nuaber of values in 

each succeeding block 


Table 5 - foraat of SCI1 label record. 
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Claii 

n 


A 


R 


1 recvivt'f if data acquisition mode 

2 receiv«^r :»n synchronization 

acfTulri^ion mode 

1 t’f - 12,1 flHz. ; f2 * 16 KHz. 

2 f1 ‘ H.1 HHz. ; f2 * tt KHz, 

3 f 1 ^ 2.1 BHZ. ; f2 * 1 KHz. 

0 syncbroaizatioA not received 

1 synchronization received 


Table 6 


Interpretation of node data 
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Rneber PeCj^ 

ISi. 


Contents J 

1 




label 1 

1 




node 1 

1 




temperature 

1 

X 


f 1 

transnl tter-of f 

1 

y 


f 1 

tr-insBitter*of f 

1 

z 


f 1 

transmitter-off 

1 

X 


f2 

transmitter-off ' ■ 

1 

y 


f2 

transmitter-off 

1 

z 


f2 

transmitter-off 

1 



f 1 

calibration - ground**'’ ir;>*jt 

1 



f1 

calibration - aaolifi?d noi?e ' 

1 



f 1 

calibration - noise 

1 



f2 

calibration - gcoundei input 

1 



f2 

calibration - ai»olifi**d noise 

1 



f2 

calibration - no-se 

1 



1 

range * 

1 

X 

EH 

1 

dB 

1 

y 

FW 

1 

dB 

1 

z 

FW 

1 

dB 

1 

X 

NS 

1 

da 

1 

y 

NS 

1 

da 

1 

z 

NS 

1 

da 

1 



2. 1 

range ♦ 

1 

X 

EV 

2, 1 

dB 

1 

y 

EV 

2. 1 

dB 

1 

z 

EH 

2. 1 

dB ‘ 

1 

X 

NS 

2. 1 

dB ; 

1 

y 

NS 

2.1 

dB i ; 

1 

z 

NS 

2. 1 

dB i 


( 

i 

i 

I 


Table 7 - Record contents on files SCT1, 5ci2# and 
SCI 3. 

• not present on SCI 3 


f 


I 
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Nunbec 

Rec^ 

l£^ 

Z£Sai 

Contents 

2 



4 

range * 

2 

X 

BW 

4 

dB 

2 

y 

BH 

4 

dl3 

2 

z 

BW 

4 

dB 

2 

X 

NS 

4 

dB 

2 

y 

NS 

4 

iB 

2 

z 

NS 

4 

dB 

a 



8. 1 

range * 

4 

X 

BW 

8. 1 

dB 

4 

y 

EW 

8. 1 

dB 

4 

z 

BW 

8. 1 

dB 

4 

X 

NS 

8. 1 

dB 

4 

y 

NS 

8, 1 

dB 

4 

2 

NS 

8. 1 

dB 

8 



16 

range ♦ 

8 

X 

EW 

16 

dB 

8 

y 

EW 

16 

dB 

8 

z 

BW 

16 

dB 

8 

X 

NS 

16 

dB 

8 

y 

NS 

16 

dB 

8 

z 

NS 

16 

dB 

13 



32. 1 

range • 

13 

X 

BW 

32. 1 

dB 

13 

y 

BW 

32. 1 

dB 

13 

z 

BW 

32. 1 

dB 

13 

X 

NS 

32. 1 

dB 

13 

y 

NS 

32. 1 

dB 

13 

z 

NS 

32. 1 

dB 

Table 7 


Record contents on files sell, SCI 7 



SCI3 

(continued) . 



* not present on SCI 3 
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SrilA, SCI2A, SCI3A 

These files are written in binary for>- (i,e. - 
without format control ) , and contain dB data 
equivalent to that in files SCII, and SCI3 
respectively* Each file begins with the same label 
inforaation as its parent file. 

The remainder of each file consists of thirty-six 
blocks of dB data; each block is of the form given in 
table 8. The dP data are interpolated values, at 
intervals of 0. 1 wavelength, beginning at rero 
wavelengths; the maximun value of N^TS is one 
thousand. 


Pos ition 

1 

2 

3 

u 

5 through 
R START *3 

NSTART4.4 

through 

NPTS+4 


Cont ents 

eight characters: frequency 
floating-point: frequency 
integer: NSTART 
integer: NPTS 
floating-point: 0.0 

floating-point: dP values 


dP data on files SCIIA, SCI2A, 
and SCI3A. 


Table 8 - 
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ST ATI 

The six blocks which comprise this binary file 
are suuaarized in table 7(a), The index T for th-'' 
first two blocks selects temperatures and 
corresponding targes at successive intervals of 
seconds, 

Por the remaining blocks, the index I selects the 
various data at successive times (at varying 
intervals) , Values of one through six for .1 select 
data for frequencies 1,0 through 12,1 megahertz 
respectively. The significance of K is i ndicated in 
table 7(b) , 


Block 

Contents 

Indexing 

1 

TERP (I) 

I<=386 

2 

RA»GR(I) 

r<=388 

3 

CAL(I,J,K), NCAL(J,K) 

r< = NCAL(J,K) 

J<=6 

K< = 3 

4 

TX0PP(I,J,K) , NTXOFP(J,K) 

K = NTXOPF(d,K) 
J<-f> 

K<- 5 

5 

RANCB2(I,J), NB(J*) 

K=NR (J*) 
J<»6 



= U (.1*1) /2 

6 

SPEED (I,J) 

K = NR( J') 
J<-6 


Taole 9(a) - Contents of file STATI, J 




4 Ik 

4 r 



-r; 


1 
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K 
1 
2 

3 

Table 9(b) - Function of the inflex K for 

transmitter-off and calibration 
arrays on file STAT1. 


TXOFF 
X antenna 
y antenna 


CAL 

grounded input 

noise diode 
♦20dB amplification 


2 antenna 


noise diode 


EP4 

This file contains range and dB data from file 
SCI3, only for the region of the turn at FP-4 
(specifically for the range values on the interval 
490 to S35 metres, inclusive. There are ?f> records 
on the file, all of the sane form, but of varying 
length. The form of a record is summarixed in tabln 
10 . 


I 

i 



i 
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Naae 

WOjpds 

Contents 

F 

1 

frequency in aegahertz 

NCOEP 

1 

component identification 

1: rho endfire 

2: phi endfire 

3: zed endfire 

4: rho broadside 

5: phi broadside 

6: zed broadside 

YHIN 

1 

miniauv^ and 

YEAX 

1 

maximum dB values 

N 

1 

number of range-dB pairs 

RANGE 

N 

range data 

DB 

N 

dB data 


Table 10 - Record fomat for file EP4, 


NAVI 

This is actually a part of the card input data to 
ANTENNAO. Any nuBber of cards lay be included. Each 
card contains three values: a tine in seconds, and 
corresponding right-front- and left-rear-vheel 
odoaetec counts, in format (3P10.) . 



pr ogram 


Apollo 17 - ni 


ANTPKKAO 


C. . .. ANTKNNAO PT.OT CA^a PPOM PP-« THPU 

C 

C DB VM.UPS APP ''I.OT'T'FD (in A POT.AH (?PID; Tf«F ANGMI.AP roopniNA-nP A?’- 

C fSTTHAT^'S OP T!!’*’ AN01.F BETWEFN TUF l^V AXTf! ANL> TPF LINK FFOF TPF 

C LPV 7 0 'T'l’F SFP TiUNFNITTEF. 

C 

C SFVFN TNPir I^KCORDS APF RROniPFD; SIX AS DPSCRlh’^D ANI. OFF 

C FAHFLTST (PLTTD) PErOHD, REAP BY PLINIT. IN ADDITTON, ANY 

C NUBP^P OF CARDS CONTATNTNa NAVIGATION nA^A (txk] , AND 

C LFFT-W;<KFT. or>i)W?TPP CO"NTS IN PORPAT 1^10,0) HAY FfM.Uiv,' '^HF '■•l.'r’Tp 

C RFCORn. 

c 

C NAMF1.TST (CNTL) : 


IPPRO 


PAGE TWO LOG OF PPHOnt'MCY; NO nRFAHIT 


ICOBP - (f>l CfiPFS POP oonpoNRNTS TO PF PI O'”'! Ft. , DAnf'FD 
RFROPS: nKTSTtOLT SIX “^RPOFS. TFF cnnPS A! !; 

r PTPF RPOAHSin’^ 


AO - ANGLF POH the FIRST POINT; PPPAf’lT 

ARANGF. - ANGULAF DTFPBRPNCP PETHF'’H TUF FTT-^T AND LAST i'n]Mns 
*)r-FA»»TT G.2R31P 

BO»»NDS - TIIRPF paths OF INDICES DRPINIPG F’OINTS TO MK ri.O'r-’'ni 
EACH f’ATP DEFINES THE FIRST AND LAST OK A SFOUrNC!’ 

OF rOlNTS TO PP PLOTTFDF NO PKFA'M."* 

NAVDAT - (LOGICAL) ODOHPTEB COUNTS TO UE dfad (FOLLf.WTNG •r\n' 
PLTID RECORD) AND USED IN COMPUTATION oi- ANGll’F; 
nRPAf’LT FALSE 


TIBFO “ (RFQf’IBEO IP NAVDAT IS TR”F) - TYPE ( ON CM, P O^' 

NAVIGATION DATA) FOR THE ETRS-’ POIK" To p- Plor^JD; 
NO DPPAOL'P 


— ^ 



nnn n oonn non n non 
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FSM,*4 yffiOO), Y(fiOO), TTHB(FOO) 

REAT*«» TZSPO|6) 

fEAT*4 rr(6) / 6,4R, 1.24, l.f.2, .*^1, .4-}RU^ / 

RRAI*B PR0nV!1f2) / *000?. ant*, *KNNA* / 

TNTE(1*-F»2 BO”ND(f, (). BOftlDr (6) 

LnnrCAL*! I)KCT 0 »=;(fi, f>) / * .TK'»F. /, v/iVDAT / .I’MSE. / 

INTFGFP*? ro-*P(*>) / 212, 222, 232, 211, 221, ?31 / 

TNTFGFF*? TrONP(ft) 

C 

NAFELIST / CNTL / TPPEO, im»P, AO, AFANOF, TTM-n^ iiO»»N'r. 'v, NAVr^AT 

SPT >»p rONTROL INPOPMATION 

AO = .3. 141'>4 
ARANGF = f>, 2‘Ulfl 
DO 100 1=1, r. 

DO 10 J=1,0 
rconp(j) - 0 
BODHD-KJ) = 0 
10 CONTIHOP 

GF*^ PNFOnPNCy INDICA70H AND COMPONENTS TO FLO'^ 

READ('>,CBTl) 

TZBROCI’*RBO ♦ 1) = TIMED 
DO ^0 .1 = 1,6 

IP A COMPOBRNT IS NOT TO BP PLOTTED, 

HKSRT ITS MATRIX ENTRY. 

TC » COMO(J) 
no .30 P = 1,6 

IP(ir .KO. TCOHPfK)) 

, GO TO SO 

30 CONTINDR 

DFClDR(tFRFO ♦ 1, J1 - .PALSF. 

SP CONTINUE 

DO RO J » 1,6 

nOOKD(J, IPRRO ♦ 1) • PODNOSfJ) 

80 CONTINDP 
100 CONTINfIR 

INI'PIAITEP THE PLOTTER 


CALI. PtlNIT(PROGNM) 


»f»olln 17 


41 


■I 


i 0) 


c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

r 


CKU, PI.OTC 5.0, 


- 3 ) 


LOOP THPO'lOH PRP0«E'<CIF.? 


no 140 TF’>P0 = 1»0 

SpT ftp TH" !>P!»AY 

IP1 = ROUND (1, TFPPO) 

TPf * nOl7MD(5, TFPKO) 
no 110 T = IB1, TPft 

TTREtn = T?’»POCTPBPQ) ♦ O'P(tPHFO) * (T - 1P1) 

110 CONTINOP 

LOOP TH. 10 »tr,H CORPONPHTS 

DO 110 JCORP = 1,f> 

READfl) PBRO. NCORP, YMTN, YBAX, N, 

(X(T), I * 1.N), (YCI), T * 1,M 
IFf.NOT. nECTDPflFRT^O, .ICOBP)) 

. GO TO 130 

CAM. ANTPA-r (TIME, Y, N, PRFQ, .1COKP, BOffNOd, , 

. AO, ARANOP, NAVPAT) 

IIP CONTTNOR 
140 CONTI I’flP 


CALI. PLCTMD 

RPTR'»N 

RMT) 


© 


*i<:«*«4i***t« ^*#«4it4i4>**4i4iv**«*4i4i**«««*«*«4>*****« 4^^ *#*•** **««** 

* * 

* ANTPAT 

4 * 

**« 4 >***** 4 t*^**« 4 i 4 t 4 i#* 4 i«*%«** 4 t**«*« 4 i*««*** 4 >***»* 4 i*»* 4 i«** 4 Mi ♦**#«•«*** 


c 

c 

c 

c 

c 

c 

c 

c 


SODROPTINR ANTPAT IT, H, N, F, JC, D, AO, APAHGF, NAVf AT) 
ROOTIME TO PLOT THE AWTRNBA PATTERN 

theohgh the "•urn at ep-4 

PABAHBTERS APEt 
f - TIME ARRAY 








ouu uu 


Aoollo I’’ f''M’ - Uli 


c 

c 

c 

r 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r 

c 

c 


c 


V - V.r.n. ARRAY 

N - NUMBER OP POINTS IN P OR M 

F - FREQUENCY 

,ic - component TDENTIFIBN: 

EMOFIHE BROADSIDE 

RHO 1 , U 

PHI 2 ' 

7. P.D 1 

P - BOUNDS WITHIN H; THF VALORS H(n(D) “ 

- H(B(Un INCLUSIVE 

AND - 11(0(6)) INCLUSIVE APE PinT'*‘H', 

AO - TNI'»*IAL ANOIE - DEFAULTS TO PI 
ARANOE - RANOE OF AN(;LBS - DFFAHL'^S TO ?*PI 


REAL*P LAB(6) / » RHO PHn.»,»PHI RNP.», »7FD 

. *pno pro.*,*phi bpd. 'EFd bpp* 

REAL*« H(N) , T(N) 

THTRSFREtt COMP (f, 2) / 7IR, Z?U, 769, ZIP, 724, Z69, 
, I ♦ *BND», 7 ♦ »BRD* 

TNTEr.FPE2 B(6) 

L00TCAL*1 NAVDAT 

K9TTK(6,1000) F, LAR(.IC) , W, P 

PLOT X AND Y AXES FOR NEFEREKCR 


CAM. 

PLOT (-4. 

. 0. , 3) 




CALI. 

PL0T( 4, 

. 0. , 2) 




CALL 

PLOTC 0. 

• 4. , 3) 




CALL 

PICT( 0. 

0 0 2) 




PLOT 

lapels: 

PRROUFNCY AND CCHPONBMT 



CALL 

NUNBRRC- 

1.12, -1., .14, 

r. 


1) 

CALL 

SY«P0L( 

099., 999,, ,14, 

7H NR7. H, 

n.. 

7) 

CALI 

symbol ( 

999,, 999., .14, 

COMP(JC, 1) , 


-1) 

CALI. 

SYMBOL ( 

999., 999., ,14, 

CO«P(JC,?) , 

0., 

1) 


IMITIAL17B THE VAIUK OF TUB ANCLR 


) TNCI,!!': 

/ 

/ 




A 'IP PIO" TH’! PTPP'’* r-oTMr 

nft * /iMNtu; / (rpf?) - T {in ♦ - ’’{ 7)1 ♦ ('•{') - 

20 A=A0 

Y a fU3(in * CO«?(A) ♦ 0. 1 

V * H CD (in ♦ STN (A) * 0,1 

WPTTP (f.,2nOC) 0(1), H(n(1)), A, t, Y 
TAU. FYHn0L(X, Y, .07, 10, 0,, ~1) 

I = 0(1) ♦ 1 

TF(T .PO, Pf>) * 1) I * O(^) 

IP (.MOT. NAVDAT) OO TO 

ODCMTM * onCTNT (T (P (1) n 

oorpAH » onc^NTC'^ (P (f-)) ) - OprMIN 


e l)PC’>’*HPMT TH'i: AHRI," (POTATIOY T?> CTOCKWIMF) 

r AND PLOT orK NrlX? miMT 

r 

10 IFCNAVDA'’’) (-0 T) 40 
A = A - DA 
00 TO 40 

UP ^ = AC - APAMOR ♦ (ODCTNT (T(D) - OPCMTH) / OPC: A*I 

4S IF(A .I.T. -1.14l*’»9) A * A * f.2ft31R 
y * M (I) * COS (A) * 0. 1 

Y a M (I) ♦ SIM (A) • 0, 1 

rfRTTR (0,1000) T, Hd), A, X, Y 
rAU. SYMPOL (X, Y, .07, 10, «., -?) 


T = T ♦ 1 




IP(T .EO. 

hC>) ♦ 

1) 

T a H(X) 

TP(7 .PO, 

P(4) ♦ 

1) 

I = PC>) 

IP(I .EO. 

ii(0) ♦ 

1) 

Of) TO 90 


c 

no TO 10 

C 

c TlfDPPTNP TH!^ PLOTTPP OPI'IIN POP A POSSIMK »iPXT ’M-’V; 

C THEN UFTTIPK 
C 

‘.»P CALI PLOT(P.')0, 0,0, -1) 


1O00 POPPAT(*0», 


200O*POPPAT(»0 

3000 * FORK AT (iy, 
ERf> 


pn. 1, • MifP., », AH, • ro*ronPK'M / ix, 

// IX, • POT MTS', T*), • TO •, »•■> / 

7X, 10, * TO *, / 

ttt, ’AND*, T*), • "0 », rO, • KTLI »'»• ^!0' 
t UP*, 7X, 'APWI.?*, ''X, *1 (PLOT) Y» / 
»0», T4, 2X, P6.2, PIO.S, or, 2**0,l) 

T4, 2X, P10.‘>, 0X,?P4.1) 


'M‘>n ♦ n 


. ♦ pr, 
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*««*««*«**«**«*««^ ♦•♦♦♦♦*♦♦♦♦♦♦*♦♦*♦*♦***♦♦*♦♦♦♦♦♦ ♦•♦*♦♦♦♦♦♦♦♦****4,*^** 

* B'»PPLF I 

****************** 

s”BPo»»TTKR n*»r.f)i,>? fy , ix, n) 
c 

n?.ht*u f(f() 

HfTP*1FP*4 It(fl) 

c 

c 

DO 10 T * 1, N 
IX (I) = T 
10 COITmnp 
C 

c 

NX « W - 1 

c 

c 

DO “io r = 1, NM 

I'^(X(TX(IH ,L!?. XflXd ♦ 1))) no TO *50 

c 

c SWITCH 

c 

IT = TX(T) 

TXCI) = rx(i ♦ 1) 

IX Cl ♦ 1) « TT 

c 

c 

TI « I - 1 
J.1 « T 

c 

c ponsLp 

c 

DO 40 J * 1, It 
JJ S .TJ . 1 

TP(xcryfj.n» .ir. xcixcjj ♦ in) oo to no 
c 

c SWITCH 

C 

IT • f X C.tJ) 

ixcaj) • ixcjj ♦ 1) 

IXCJJ ♦ 1) ■ IT 

40 CONTTWHS 
%0 COWTINOP 


noon on on noon 


- *47 


> J 

c 

C 

c 

”MT> 



f|»0:inA*! TO ay*9PARH CALTPPATIOW PA"*A 0|'.T?T«<fn ov 1 pr f, i*, 
WITH VALOPS FROr TF'ST R'*!**; O'* RAr-H, 

REAL*4 TF«PC1*?6)» CRAfKIEf 140» O » CA! C 14'', I) 

PFA1.*«* AHffi) / -,3f96, -.1417, -.*^R7G, -.2^04, .1044, 1, 1*^-7 / 
?’;:AT,»tt RRCh) / SGO,, S'*?,, 712 ,, 73 P,, TGG. / 

F**AL*tt ABPAHPCM /-.2174, 0., 0,, .1104, .?R7f., -.0217 / 

!.’RAI*4 PHPAMPCfil / 11B2., 1?0B, , 1210., 124f>,, 127G, , l»f»1, / 
r*PAl.*4 RRNn40), FPVPA(14P), DR f140) , nNPAHrM4»’1, t( 14. ) 
!*iTroRB*u »jrM(G,j), im(l) 

r. .•!Af> THE t<F'? 01 ’’"!D DATA (TRP pOffRT” FF.Afi ' 

SKIPS OV. R Ttfp rf»Mj«jp 7 TT»p-OPF ATAYS .1 

RKArd) TRFP 
POArCl) TPAKOF 
HEADfl) CAl, 4CAG 
PFAD13) 

*»EADfl> r^’ANSr, RR 


I.OOP THPOlWH FRROUFMriFl 
DO 100 'PISO « 1, 6 

in T 2 •• (IPRKP - 1 ) 

WRTTK (0,1000) IPR 
WriTBIR, f»000) TFR 
BUB * 0 . 

BSTG » 0 , 

BPAHK *• 0 . 

BP A Sir. » 0. 

B(?HK • o. 

RKOTfi * 0 , 


O 


-,«J.jVS.^=n4,-n5S4s*« 




n n o non 


n 


17 *;fp - 


loop TiiPooGH TifR rtj^nor «pp*y ’•op 'fi’i*; FppcnFKry, 
no fO I =■ 1, i«o 

FIND TPnPKPATIlRB VAL!’*! FOR CnANGFfI) 

IF(CPANGR(I, IFP’^OI ,GT, 1667.) GO TO 70 
IFCCRANOFri, TFFFO) .GT. TPANGEH)) GO to ?<) 

T(I) - TffiPn) 

GO TO *iC 
20 COFTIHUF 

DO ttO J « 1. 

IPCCFANOKn, IFF’^0) .GT. TRAIIGB(.1 ♦ 1)) GO TO UO 
T(T) = TFftPMI ♦ (TFFP(J ♦ 1) - TKflP(.7)) 

. * (cruvariT, ipfho) - Tt/iiioFf.i)) 

. / (fRAKOPfJ Pi) - TRAWGF(J)) 

GO TO SO 
ttO COUTINOK 

SO EBIMI) * AMCTPIIRO) * (T(I) - 66.) ♦ Bli(TFRFo) 

SPUPACn * ANPARPCIFRFO) ♦ (T(T) - 66.) ♦ P NPAFI- (TFP’O) 

Dud) » CALd, TFRBO# 1) - Fn«l (I) 

OMPARHI) » CAMT, TPRP.O, 2) - PHSPA fT) 

II * N ♦ 1 

RP!I * PPM ♦ DR II) 

PPARR » BPAMR ♦ DN^AUPd) 

FfiRR * PG1R ♦ CAL IT, IPRfO, 1) 

60 CORTTRDB 
70 PDR 9 \.,>S / • 

»PARR * PPAPR / R 
PliRR • RGRN / R 
DO PO 1 - 1, »I 

DDF » ABGCnR(I) - PPK) 

DOKPA • AUGIDHPAPPIt) - fPARR) 

PSIC « KRIG ♦ DDR • nDR 
PPASI6 » RPASI6 ♦ DORPA * ODMPA 

RPTTEC6, JO-70) rPAROPd, TFRRO) , T (T) , rAL|T, ir^^ O. 1) , 
. EDRII), dr CD, DDR, OAMT, TPnpo, J) , 

. PDRPACD# DHPAPPCI), DDRPA 

CTG * CALCf, IPREO, 1) - POPR 
SGSI8 ■ PGSTG ♦ CTG • CIG 

»RI‘**PC«, RODO) CRARGPCt, I»RPn), CAl.fI, TFP^O, 1), ^IG 
90 CPRTTROP 

ESTG ■ TORT f PS 16 / <R - 1) ) 

PPAStG » SORTfRPAStG ./ fR - 1)) 

RRITFfG, 1000) fWR, PPARI, MTG, PPASTG 
BOSIG 9 SORTIPOJXG / (W - 1)j 



on on n n n o o o 


>tu)1 ] 1) 17 


- 'jO 


WFITK 

ino rr,nTi»inr 

KRTfier 


iono) RG'^N, ’•Mild 


nio , TU, 

. Illy, 'Nor 

. / ^X, 

. 2(inx, 

. ■’X, 'n( 

2000 FOPKAKIX, 2(rin 
lO'i'l POP''AT(»-', ?1X, 
. 20 V, 

«00fl FOPKAini'X, F10. 

•^o'lo Foiif'ATC-', ny, 

20 X, 
T«, 

2 OX, 


0000 FOR“AT(*1*, 

. *o\ 


• 107, OT.TOrATTON COIPAMIO’J* 

OR OTODR* , ?oy, “IOI1R nroPr ♦ ?<' Til M’’.* 
NCF*, 4X, •TFir”’’FAT'?i,?F* , 

•LOIA.;*, OK, •KAR'T'H', IX, 'Ff'Pn”*, 

RppoR)' ) / :»y ) 

.3, '■>X1 , 2(4i?10. 3, IX) ) 

2('’2X, *MFAF EProp = *, Pin. 3) / 

?(14V, ’ITANnARP nFVTATION = », FlO.3)) 

3, 2t^10.3) 

*M»’‘AN = ’ , 10, 3 / 

‘STA’IOAi'D OFVTATION = *, FlO.3) 

• 1 HR, DATKOPrinNi'* / 

’PAHGF', lOy, 'NOrSF n(N()TS”)» / 2v ) 


/ 


ENl> 



r.”BPO'»TiNR S’lLTFP (A,N,F,1,R) 

..N-POII'’’ FTT.TRH ’^01 APPAY *A* OP niPRNSlON *N*, PIT Rd ’•’Tl.TPP m»’FF 

, , IN ARRAY *F*. ARRAY *P* OP OTPPNSION IF OIRD TO FT"i-p ■<’ II.'’' Ft' rj If 

, , 7F1P0R.ARTI.Y, 


DTMFNSION A(N), B (N) , ’••(1) 

, ,AVOTn A'T'rnBPTTNd 70 FIT, TOO OATA AT ANP T'^Nf) OF AhPAY. 

K= 1 / 2*1 
l.= N-K*1 


TP(N,!T,r) dO M 

..MAIN LOOP POP ALL DATA POINTS, 
no 2 T=K,T. 

TBI!B=T-K 


..LOOP TO APPLY t'hp PTITPP COFFPTCFNTS FOR OM«- DA^A poTir, 
B{I) ’ 0 . 

DO 1 ,1=1,M 



n o 


I 


■I 


1 e (I) =-B(T) +A (Tsitn+j) *? (j) 


Apollo 17 f?--*’ - '■•ft 


2 rOMTINnK 

..COPY n RACK IN "‘0 A. 
no 3 I=K,L 

3 A(T)=R(I) 

WRITF«i,«l 

4 ’^ORHAT CO* ,T l,»-POTMT riLTFRINR COHPLRTPO '’oTNT::. 

♦COEPFICFNTS ■•’ERE: */ (7Y, lapg.U/) ) 

RETURN 

5 WPTTr(R,6) M,N 

f- FO’»MATf* 0 ***EPROR*** ATTEMPT TO U 5 >F* , I*» »* -POINT tJL'l '^7 Of: 
*j • POINTS; FILTER RFOUEST IGNORED.*/) 

RETURN 

END 


GAPLOT 


RURROUTTNE nAPLOT(PPB 0 » t, Y, N, YHIN, YMAy, NrOEI) 

PLOT RANGE VS. RECORD NUIBER AND V.C.O. VS. RHOOIM) NUNfis- n F 0 ; 
DATA IN THE AREA OF THE TUPN AT EP -4 

PARANETEPS ARE; 

FFEO - PREOUENCY 

X - RANGE ARRAY 

y - V.C.O. ARRAY 

N - NHHBBR OF VALHKS IN X OR Y 


YHIN 


MTNTRUN V.C.O. VALUE 


Y«AX - MAXIMUM V.C.O. VALUE 


NCOMP - COMPONENT IDENTIFIER 


on oono ooooo^ oono 




•'Vtrmm 








AttoUn 17 ‘■;i-"' - '.1 



C 


c 

•’.SDFTKE 

«!^nnrsin^’ 

c 



c 

L HO 1 

u 

c 

T>HI ? 

c 

c 

7FP 1 

f 

r 



c 

HI AL*4 y (N) ,y (V) 



TNTK(1*‘P*4 TCnMP(f>,2> / 7. in, 724, 7f'«, ?in, r?4, ".fjO, 

. 1 * *!iND», 1 ♦ / 

VF'TTr (fi,100l pnry, NCOHP, h, yhin, ymav 
WPITR (f',2n0> X 
KPT'^R ((., 100) y 

N P01K?<! APV TO PF PI,OTTvn OVEP A KAVOf T\ {rT,f)"‘'r~p) V 
OF TNCHFS. 

nv = R.Fn9 / N 
CALL PT.nT(0., 8. ,3) 

CALL FLOTfO., 0.,2) 

SP*^ AK INTECIAL » 1 TNT})nf^ V.C.T. VAT.’iF; TF TPP ’'^Kr,? (p V.r.n. 
VAI.(fPS TP, OPFATFR '^f'AN IP PP. AMHST Tir DATA *^0 F vr-,ij}f 
A 7 INCH P 1 .OTTFR PANr.F - OTHFFWlPv TUP PCALF is FIX:'!' 

AT P nn. / INCH. 

YnTNN-ATKT(TNrN) 

r>Y* AFAX1(P., ATST((ATNT(YMAX «YMTNN) ♦ 1.) / 7.) ♦ 1.) 

WRITE (F, IPO) oy 

PY * 1. / ny 

DO 20 I = 7 

YY e I 

YYY = YniMN ♦ YV / DY 

CAIT nYKPOLfO, ,vv ,.07,1 1,00.,-1) 

CALI. rOPBER 1, YY-,0P,.07,YYY,90. ,-1) 

20 roVTINtlF. 

FTYI55P LAPEI.LIWO THE AXIS; THEN PLOT A TAB’!. 

GTVIAG FSPO^ENCY AFP COWPONFN'f 

CALL SYMBOU-.2P, f>,2P, .14, 5HV C 0, 00., 

CALL NOB PER (4.5,0. ,. 14, PR Bp, P. , 1) 

CALL r.YPPOl(44 5. ,‘»o»>.,.l4,7a HH7. H,0.,7) 

CALL SYPnf)T.(744. ,497. ,.14,IC0HP(NC0KP, 1) ,0.,-1) 

CALL SYPnOL(474. ,444.,,l4,irOHP(HCnMP,?) ,0., 1) 

PLOT A SYMBOL FOR EACH V.C.O, VALHE. 


O 



on nonooooonon-no'^jo oono 
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DO 40 T*1,N 
XX=0X*I 

YY * DY ♦ {Y(T) - YJ1T4N) 

CALL SYMBOUXX,YY,.07,10,0.,-1) 
40 CON'T’INUP 


P^.V>??IV^ THF ORTOIW FOR ^HK RFXT PLO?; 

THFN rPT'^RM. 

CALL PLOTfa.'i, 0., -R) 

RF.TfJRN 

100 POPMA'T’ C'OFRFO. = * ,F6. 1 ,• COHPONFNT* , T7/T6, • POINTS'/ 
. • MIN. V.C.O.=*, Pf).1 / * MAX. F^.l) 

150 PORMATCOSCAIE F6.1, ' OB / TMCH') 

200 FORMATCORANGF A PP A Y : • /1 00 ( 1 X, 10F10 . 1 /) ) 

300 FORMA’^COV.C.O. A PP AY : * /1 00 (1 X , 10F 10. 1 /)) 

PNH 


* 

TMTPOL * 

* 

tfpt****** ******************************* ******* * 0**0 ****»■*($ ******* 


SMBPOn'T’TNP INTPOL (XI N, YT N , N, XOIt^ ,YOUT ,N ST APT, NPIC?) 

ITNEAP TNTrRPOLATTON OF YIN VS XTN AT PnTNTS XnfJT. PEP lM/73, 


INPUT: 

XIN - IKPnr X ARRAY 
YIN = TNPn? V array 
N = niMFNSION 0^^ XIN AND YIN 

yoUT = POINTS AT WHICH YIN WTU. 01-’ INTFrPOLATFP 
NPLOT = niMFNSION O*- XO"T ANP YO"T 


on-rpM-rj 

YOHT = INTFRPOLATFn VALORS OF YIN AT POINTS XOUT 
NSTAHT » HPHnFP OF FIRST POINT INTRRPOLATKD 
NPLOT s NOMBFR OF LAST t>0INT INTFRPOLATEO 

niMFNSTON XOOT (NPLOT) ,YOOT (NPLOT) , XIN (N) ,YIN(N) 
VSTART® 1 
T* 1 

DO LOOP TO TNTBBPOLATE YOUT AT EACH XOfJT POINT. 


*** 


o 
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C CHECKS ARK MADE POR BEGTHHINC AMD END OP VIM, 

C 

DO SO J= 1 ,N!»LOT 

4 .' IP (XIM (T) »XonT (J)) 10 , 20,10 
C 

10 T? (T. PO. N) GO TO 60 
T=T*1 
GO TO ttO 
C 

20 yoUT ( 0 ) =YIK(T) 

GO TO SO 

c 

10 TP(T.F 0 . 1 ) GO TO 13 

YOtJT M)=YTN ( 1 - 1 ) ♦ (XOIJT(a) -XTM (T- 1 ) ) *(YTM (T) -VTN ( 1 - 1 ) ) / (Xlf (T) - 
. yiM(T-l)) 

GO TO 50 
C 

J 1 NSTARTs.T +1 

50 CONTINUE 
C 

PETORN 

50 MPI,OT=J -1 
PETORN 
END 


**«*t*4>«*y *« ««««<*** *«*ik**4i*«4>«4i4i****** «****«*«♦ *«**«*« *4>***** *4t* 

♦ ■ ♦ 

♦ lOSACOPY ♦ 

* * 
«»4><i**«**4i«**4t4>*** *««#*««*« ***« ««««********«** *«**«**♦ *«*4i*4< **«*«««*« 


i 

4. 


J 


REAL*8 TYPR(2), RON, SITE, DIRECT, POPPBV, TITIF(H) 
PEAL*4 DATA(12000), PAMGP(IOOO) , VCO(IPOO) 

BEAL*4 PREO(5) /1.0, 2.1, 4.0, 8.1, 16.0, ,32.1 / 
TNTEGPPP4 IDATA(400) 

INTEGER*? TTYPE{2) 
t06ICAI.*4 FIRST, lAST 
BOPIYALFMCB (DATA(1), lOATA(l)) 

COEHON /LONDAT/ TITLE, ROM, SITE, DIRECT, POPREV, TYPF, 

. ITYPB, N, PIPST, LAST 

C 
C 

C READ 1.0NAR SEP *11? (#1) AMD PRODOCE A PILE OP V.C.O, DATA 
C INTERPOLATED A* INTPRVALS OF 0.1 WAVELENGTH 
C 

C THE RANGE AMD V.C.O. DATA ARP ACCOPOLATRO IN ARRAY «nATA«. 


* 



(D 



ooooo n n n oonoon ono ono nnonnnono 
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lOPG IS T:1F IVDKX OF TH’? NEXT F1«:K LOCATTON INTO WII]ii' I'At/. 
MAY RE STOBEO. TXX TS THE TNDEX OP THE <fTPST PAHOP VM'l';, 
AND TXY IS THE TNDEX OP THE FIRST V.C.O. VAl"F. 


READ A»P WRITE THE LABEL RECORD. 

THIS RECORD CO!ITAINS N - THE NTIHBFR OF 
VALUES IN BACH 50BSFQUBNT RECORD. 

CALL LONINfDATA. IDATA, 6980, 8990) 

WRITE <6, 3000) TYFE 

¥PITE(6, 1000) RON, SITE, DIRECT, POPREV, TITLE, N 
WRITE <3) RUN, SITE, DIRECT, POPREV, TITLE, !» 

INITIALI7E THE STACK 

10 TORG*1 
M*0 
L*0 

CHECK POP STACK OVEPFLOW BEPOPB READINO THE NEXT PFrT>Pn. 

2') TP(TORG4N .GT. 12000) GO TO 970 

CALL LUNIN (DATA (lOPG) , IDATA, 6980, 6990) 

TP(TTYPE(1) .GE. 6) GO TO 40 
WRITE (6, 2000) TYPE 
GO TO 20 


THIS SECTION TS ENTERED ONLY POP 
RANGE AND V.C.O. RECORDS. 


40 WRITE (6, 3000) TYPE 

TP(1TYPP(2) .BO. 6) GO TO 60 

POR RANGE DATA - HOVE lORG TO POINT ONE LOCATION UFYOND THE 
LAST VAL»»B, AND INCREHBNT THE COUNT OP RANGE BLOCKS (M). 

IP(PIRST) IXX*IORG 

I0RG»I0R64N 

«»H4l 

IP (.NOT. LAST) GO TO 20 

APTEB READING THE LAST RANGE BLOCK POR THIS PREOUENCY, 

FILL ARRAY ‘•RANGE" WITH DISTANCES IN NRTERS COR P ESPON DING 

TO (1.1 WAVELENGTH INCRBHFNTS: THEN COHPUTF TRR NIIMPEP OP VAMIFS, 




oou ouoc 
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c 

r 

c 

c 

c 

c 


c 

c 


D«L«2‘J. 97'»2‘S/»RH0 (TTypR(l) -5) 

DO *10 1*1, 1000 

HAVRE (T) *DWL*FL0AT (1-1) 

SO rOVTTNtlK 
NPTSTN*M*N 
00 TO ?0 


TPEATMFFT OF V.C.O. DATA TS fIDILAP 
HAS RFFM ArCHMIILA'^Fn WHFH TH'=' COUNT 


OHF 

OF v.r.o. 


OF V.o.o. VAI.»'»'S 
HTOCK*' (I.) rol.'M/' 


V 


ftO TP(FIPST) IXY=IORR 
I0P0=T0FR+N 

L=L*1 

TF(L .1.'^. «) on TO ?0 


CALI. IFTPOI, TO ORTATN V.C.O. VALUES AT FOnAI, PANOF 
THE NPW VALORS ARF RFT»''»NED IN ARRAY "VCO". 


THTKJ'VM.S 


V’STAPT* 1 

CALl'^INTPOT. (DATA (TYX) , DATA (TXY) ,NPTST N, F aN(? VCO, KSTAF'^, NPLOT) 
set TO tkRO V.C.O. VALUES WHICH HAVP NOT PF«*N INTFPPOLATFP. 


NSTH 1*NSTART- 1 
TP(NSTH1 .LR.O) 00 TO HO 
DO 70 1*1, NSTH1 
VCO(I)«0,0 
70 CONTI N»’P 
flO NPtTPl«NPLOT*1 

IP(NPLTP1 .OT. 1000) GO TO 100 
DO 90 I*NPLTP1, 1000 
VCO(I)*0.0 
90 CONTINUE 
100 NPTS»NPL0T-NSTN1 


NNITE HEADER IHPORHATION AND ARRAY "VCO»*. 


»NlTB(fi,4000) TYPE(1) ,FRB0 (ITYPE Cl) -^) ,NSTART, NPTS, 

, CVCO(I) ,1*1,NPTS) 

IP1TBC3) TYPBCD ,P8B0(ITYPE(1)-?>) ,NSTAPT,NPTS, 

, (VCOCD ,I*1,NPTS) 


If LAST IS TRUE THEN 
READ V.C.O. DATA FOR 


READ A NfN 5BT OF RANGE VALUFS; OTHPPHISE 
the NBYT COBPONBNT (THE CORPENT RANGP DATA 


nn oo oooon nnrjnn nn'^oo noo 


ft polio 17 SK»’ • 


APR RETAIVEn) . 


IP (I AST) (10 TO to 

lOROsIXy 

L=0 

GO TO 20 


STACK OVERFLOW MESSAGE 


970 WRITE (6,7000) 
GO TO 999 


EWD OP PILE ON INPUT WHEN ROPE DATA WEPP EXPECTPH 


9B0 write (6, 5000) 
GO TO 999 


PROCBSSTIIG COHPLETPn MOPRAILV 


Q90 WRITE (6, 6000) TYPE 
999 end FILE 1 
RETURN 


1000 PORHATf’ORUN *,A6/*0SITE • , A<>/* OOIPBCTION *,A6/ 

»0*,A6,* TRANSRTTTBRV»0»,10Afi,A4/*0»,m,* POINTS*) 
(♦0',2A8,» RECORD SKIPPED*) 

(*0*,2AB,* RECORD READ*) 

(»1LABFL«'»» #*«,♦’♦»/ «OFREO.* *,F5.1,* 

•OPIRST point**, 14/ *0# OF POINTS**, 14/ 

*0*,10P10, V‘>'»(1I#10P10.1/)) 

(*ONORHAL END OP JOS*) 

(*0END OP PUP OCCURRED WHILE ATTEMPTING TO READ *, 

. 2Afl, * RECORD*) 

7000 FORMAT ('-♦♦* TNSUPPTCIENT SPACE ON STACK ♦♦♦») 


2000 

3000 

4000 


5000 

6000 


FORMAT! 

FORMAT! 

FORMAT! 


FORMAT! 
FORMAT I 


END 



o n n n o o 


J 


o 
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♦ # 

♦ L'lVftCPY? * 

* * 


c 

c 

r 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


PKM>R TYPRf2) , PMN, SITB, DIRPCT, FOPP'S'V, T1TIFM1) 
PPA1.*U DATA(12000>, WANGK(IOOO), VCO(IOnO) 

PPAT.*tt PPro(b) /l.n, 2.1, 4.0, B. 1, If.n, 32.1 / 
IY?F0FP*4 ir)A"’A (400) 

TNTF''?rP*2 ITYPH{2) 

T.nOTCAT.FU PIPPf, lAOT 
P0"1VALKNCK (nATA(1)» IDATA(I)) 

COMBON /LntJPAT/ TTTLP, PHN, BIT?, DIFFCT, POPPI'V, TYf'?, 

ITY^?, N, ?TPST, T.ABT 


PRAD LONAP SRP PIT.F («2) ANT) PPODUCF A PILE OF V.C.O. DATA 
INTERPOLATED AT INTERVALS OP 0.1 WAVFLENOTI! 

THE RANGE AN!) V.C.O. DATA ARP ACCHHPLATED IN ARRAY “DATA*’. 
lORG TS TFIE INDEX OP t'nF NEXT PREE T.OCATION INTO HHini nA'T’A 
MAY RP STORED. TXX TS THE IVDFX OF THE ETRST RANGE VAT.Op, 
AND IXY IS THE IVDEX OF THE FIRST V.C.O. VAIUE. 


READ AND WRITE THE T.AREL RECORD. 

THIS RECORD CONTAINS N - THE NUMBER OF 
VALUES IN EACH SHBRFOHBNT RECORD. 


NS-3R6 

CALL IUNIN2(DATA, 

WRITE (0, 3000) TYPE 
WRITE (6, 1000) (IDATA(I), 1*1, 297) 


TDATA, B9B0, C99C) 


INITIALIZE THE STACK 

10 I08G-1 
H»0 
L*0 

CHECK FOR STACK OVFPPLOW DEPONE READING TRE NEXT RECORD. 

20 IP(TORG»N ,GT. 12000) GO TO 970 

CALL LHNIN2(0ATA (lORG) , lOATA, 89B0, 6990) 

IP{TTYPF(1) .GE. 6) GO TO 40 
WRITE (6, 2000) TYFF 


t 


o 



onoo nooonn nnnnn -^nno 
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no TO 20 
c 
c 

C THIS SFCTTOK TS ENTERED ONLY POP 

C KANRE AND V.C.O. RECORDS. 

C 

c 

c 

40 JUTTFfh, }00 0) TYPE 

iFrr?vpF(7) .Eo. f>) no to 60 

FOR RANGE DATA - MOVE lORG TO POINT ONE LOCATION rFYONP 7!iP 
LAST VAL”E, AND TNCR’MENT THF COUNT OP RANGE BLOCKS (N) . 

IFCFIPST) TYX=tORG 
IOPR=TOPG*N 

N=N ^1 

IF (.NOT. LAST) GO TO ;o 

AFTER READING THE LAST RANGE BLOCK FOR THIS FPEonFMCY, 

PILL APPAY ’’RAMGR” WITH DISTANCES IN HBTPPS COp R ESPONDING 
TO 0.1 WAVELENGTH INCRENEMTS: THEN COMPMT!.’ THE NH!<|'>i:p ny VAl”'’*. 

DWL-2'’.S7‘)2S/ERE0 (TTYPS ( 1 ) -•>) 
no SO Irl, 1000 
PANnE(T)=DWT.*i’LOAT (1-1) 

Sr> COVTTEDE 
NPTSTN=«*N 
GO TO 20 


•TREATMENT OP V.C.O. DATA IS SIBII.AR; ONE SET OF V.C.O. VALHTS 
HAS pi^EN ACCHNULATED WHEN THE CO^MT OP V.C.O. FLOfFS (L) FO’^ALS N. 


60 IE (FI RSI) IXY»TORG 
lOPRs IOPG*M 
L*?.*1 

TP(L .LT, H) GO TO 20 

CALL TNTPOl TO OBTAIN V.C.O. VALUES AT FOiiAL T'ANGC IVTb'RVAT.S: 

THE NPW VAIHRS ABF RETHPNBD IN APPAY «VCO». 

nstart.i 

KPLOT*1000 

CALL TNTpOL(DATA(TXX) , DA-^A (IKY) , MPTSIN, RANG E, VCO, NSTAPT, PPLOT) 
SET TO •PRO V.C.O. VALUES WHICH HAVF NOT INTERPOLATED. 


rtnnnn n n nnn n n n n ry n n n ry n 
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O 

r 

^JS'T‘^'1 = NK'’^^7T-1 
IF(N‘^TH1 .LF.O) no TO '^0 
no 70 Jsl, 

VOOfn »0.0 
70 rONTINHF 
sr KrLTPl*NPLOT* 1 

TF(SPT,TP1 ,«T, 1000) 00 100 

no ^0 TrNPLTPl, 1000 
VCO(T)»0,0 
on cnwTi*!”F 
100 NPTS*NPLOT-NRTI11 

WPITF PPADET? TUFORHATKH AND APPAt "VCO*», 

DO 120 ’r = NS:AP"', NPIOT 

VCO{T)=VCO(T)^11‘>.n 

120 coNTivnr 

F3TTF.(f ,4000) TYPK(1) ,PPF0(TTYPF(1) -*») ^KiJTAH T,N''T*-, 

. (VCO(T) ,T*1,HPTS) 

wniTF (.7) TYPE (1) ,FPRQ(ITYPFC1) -•») ,NF.'»-APT,NPTr,, 

. (VCO(I) ,I«1,WPTS) 


IP LAST IS THEN RRAO h NEH SBT OP PANGF VAUIEO; 

B7!AD Y.C.O, DATA FOP THE NfXT COH^OHBIIT (THP COPPFJ!"’ 
AP® RETAINED) . 


IF HAST) GO TO 10 

TORG'IXY 

L*0 

GO TO 20 


STACK OVERFLOW HFSSAGF 


0?P WRITS (f ,7000) 
00 TO ROD 


RRO OF FUE OR IRPDT RHER HORP DATA RERF EXPBCTE!) 


980 RBITBift, 9000) 
GO TO 999 



OTPEPKISf 
r.ANGK DATA 


C 


nnrtnnnnn ««#«# no no noon 



?Hoc’??r.TNG rof'ni*’''»’iD 'lornALLr 


jor r.003) typf 

40 U ruf» PTir 1 

p;-*r»»PK 


1000 rnp«»A'^(27(iy,11A4/)) 

? 0 On POP“AT(» 0 *, 2 AB,' PEC 0 !»f> SKIPOEP*) 

^00'' ’OP* AT f»0* ,2Afl, • PFrOPD REAPM 

4000 FOPPATCUAPELs^SAf*#*”*/ *0PRR0.* •,FS,1,* BH7.V 
. ♦OFIRST POTI»Ta»,I4/ »C« OF POIWTS®* ,I •»/ 

. •n«. 10 Fl 0 . 1 / 99 (n, 10 Pl 0 . 3 /M 

•^ono POPPA"* f'ONOr.lAL EUD OP JOB*) 

^OOC FOPPATC»0PNI> op PUP OCniPFBD WHILE ATTEBPTTWG PPAB », 
. 2AB, • BBCORDM 

7000 PORP AT {•-♦♦* IWSUFPICIPrP SPACE OH STACK **♦«) 


PNI) 


*«**4i««**« *4 *««**«4i«*««*:p««4t***«4i***F***««*«****P*P4t««*PR *♦*#♦•* ««***«* 

* 

LnwArPY 3 ♦ 

* m 0 t** * 0 ****** ************* **** 0 ***************** ********* ********** 

T1EAT*H TYPB(2), R0N» SITE, niPPCT, fORPPV, TIT!.K(11) 

PFA 1 .P 4 r'^TA( 12000 K PAWOPMPOO) , FCO(IOOr) 

PFAlPtt f<*V0<f>) /1.0, 2.1, 4.0, «.1, 10,0, 32.1 / 

IWTPGPRPa inATA(400) 

IHTFOPPP2 TTYPF(’> 

Ln«1CAI.*U PIRST, LAST 
POniVALFHCE f0ATA(H, TnATAO)) 

rOPPOW /I.71I0AT/ TITT.K, P«A, PITS, 0T»*RCT, rojfPPV, TY!*f, 

. ITYPE, K, PIFST, LAST 


RPAP l"WAR SPP PIIB (IM AEO PEOP»»CR A PILE OP V.C.o, OATf 
THTPRPCtATP.0 IHTPHVAtS OF 0.1 WAYPLEWOTP 
RAVC* DATA ARE TAKER FPOP FTf E 12 



THE RAHCP AMO V.C.O. OATA APP ACC'»f1»*UTE0 IK ARRAY ‘•DATA**, 
TORG IS THP YMDBX OF *!*HP MEYT PREP lOTATYOK IMTO MHiri! BATA 
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c 

c 

c 

c 

c 

c 

r 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


c 

c 

c 


M^Y ‘I'^orru. IXY is TWDEX of T*^F VAI.IIK, 

AW'» ^VV TS TNDFX 0 ? -^HF FTPSf V.C.O. VAL»'F. 


Pi’AH AND WRTTP THE LAH'-^T. RFCOBO. 

''•HIT FFCn^O rOHTATWS N - THE M’lHBFF O*' 

VAUIPf IN ’^ACn SUPSEOHENT prCORn. 

V= 1 R'. 

f’Al.T E^NTN;* (DATA, IHATA. , f.lBO, f.970) 

CAU. L'JNINUDATA, TDATA, r.Qqd) 

wwr’^E(^» jnnT) type 

KETTFtr, 1000) (IDATA{T), I»1, ?07) 

INT'"TM.I7" TOE STACK 
10 IOPG»1 
L =0 

rMEl'K FOP STACK OVE”PlOW BFPORE REAMNO THF HEX'" Pi:r<'Pr>. 


20 IF(I:)T<I*N .ST, 12000) SO TO 070 

CALI. L”NIM2(!)ArA(T07G) , lOATA, fiOBO, R90fl) 

TP (TTYPP | 2 ) .HP, 0 ) 

. CALL L”JITN1 (DA'^A<TORG) , IDATA, RORO» onOO) 
TF(r'^YPFCl) .OF. 0) RO TO 40 
«PITE(ft, 2000) TYP’^ 
no TO 20 


THIS S»CTIO!.' TS RKTFFED ONLY FOP 
FANRK AND V.C.O. RFCORDS. 


ttO WRTTP( 6 , 1001 ) TYPF 

TF(ITYRF(2) .KO, ft) 00 TO ftO 

FOR RANRB DATA - ROYR lOSR TO POINT ONE LOCATION BFVOHP THE 
LAS*«* VALUE, AMP TNCPRHONT THF COONT OF PAKOF PLOCKS C«), 

TFfFTPST) TXX'IORO 

IOR(i*lOP(; 4 H 

F *»»*1 

TFf.NOT. LAST) SO TO 20 

PFADTHS V!F LAST RANOF BLOCK FOP THIS PRPO"FNCV, 

FTL! AP»AK •*RAM«R*‘ HI*^H OIS'^ANCKS IN HBTFPS CORHKSPONOIH'; 


non oonn nnnooo r»n 


Apollo 17 r,VT' 



- (,? 


TO fi, 1 WAV:*f,»'l';T:i IKCRK^RMT'?; CORPOTP THP MnJir''*R -»!•' VATfr*'::. 

nWT®?7. =>77?'-./-'RP0(TTYf»"(1)-'») 
nn 7 * 1 , 1*100 
A'lniJ a> »nWL*Rt.OAT Cl- 1) 

*in CORTtltHW 

GO "'O 2^ 


^'^FATPPW'!' (JP V.C.O. DATA IT .'rMTUr!: OPF rPT O* V.r.O. VAt.tl*P 

•«A5 HPRS A(\:'!1»*f.ATtr> iJHPN THP CO'^NT OP V.C.O. nLOCKP (L) f G»’ALP ! . 


7.0 TPCPTFS*?*) TWaTORG 
TOPG* IORG4.R 
L=I.+ 1 

TFCl .LT. M) GO 70 20 

CAM INT^OI. TO OBTAIN V.C.O. VAL^^S AT f!0»»AL PANGF; T!!T2'»Vn. •?; 

"Wr Nfp VAl.ri’^S AVF p!^TnPNPH IN A^PAY ’♦VCO*', 

NGTAPTsI 
NPT.o?* ioo;i 

CAU. T‘j'"POl COA-^A (IVT) , 0A7A CIXY) .KPTSTN.RCfrop, VCO, NGTAP'T, NPL'T") 

1*0 Tpi^o V.C.O, VAL0»«? WOTCH HAVK K<V’* hP**N I K'«*PPPOT.A'" 7I?, 

NSTi»1»vrTAPT-1 
TP(HGTN1 .LP.'') GO ""O NO 
00 70 T*1, NSTNI 
VCOCTJaC.-l 
7P CON? T POP 
HO NPLT«laNOi.O'^4- 1 

IPCV0ITP1 .iVr, 1000) fj*» TO 100 
DO PO T»N'»I.TP1, moo 
vrocT)*o.o 
'»0 CO!ITTN»*r 
100 NP^s.jiptOr-NSTlI 

WPrvp RPADPR TNPOPHATION APO ARRAY •»VCn*», 

DO 120 7.HSTANT, NPI.O? 
vco(i)«vroci) ♦ns.o 
120 CONTTUn^^ 

«ri'*BC6,*‘000) TYPPCH ,PRN0CITYDF|1)-S) ,»STA?T,HDT‘;, 

. CVCnCT) ,I»1,MPTS) 

y^TTnCD TTP8I1) ,PPPU(ITTPEC1)-^) .IISTAP^^nPT*^, 



on no noooo onooo onno 
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. (vro f T) ,T-1 ,K’I>TS) 

C 

C 

c Tr rs T'»”*’ rnr'i ’>Knn a vfw sft of rahg!' vai/'t-.s; o"-i'’^pwTf^i’ 

C PFAD V,r. o, UATA FOP ?ifF NEXT COflPONEMT (THE CUP'.<FN'»' PANGF nA^’A 

C APE HF'^AIN'=’D) . 

C 

C 

IF (LAS'") nn TO in 

TopG=iyy 

L=0 

GO TO 70 
C 


STACK OVERFLOW MESSAGE 


970 WRITE (f5, 7000) 
GO 70 090 


EFD OF FILE ON TNT>n<r mhEM MOPE EATA WEPK EXPECT EO 


900 WPI"'P(6, SPOO) 
GO TO 9«) 


PFOrFSSTNG rOMPLETEO NORMALLY 


99P MSTTE(F), r>PO0) TYRE 
Toq RNO EILE I 
RET”RN 


10O0 

2000 

?00O 

4000 


sooo 

FOOO 


»OPMAT(77(ly,11A4/) ) 

PORMAT(*0',2A9,' record SKIPPED') 

P0PMAT(»C»,2A8,' record READ*) 

EOPMAT(»1LADEL*"»,A8,'"V 'OPPEO.' 1 

♦OPTRST POINT®', 14/ 'Oi OF POINTS’ 
♦0»,10F10.3/99(1X,10F10. V)) 

PORHAT(*0MORMAL END OF .lOB') 

FORMAT (TENn OF FILE OCCURRED WHILE ATTEMPTING TO READ • 
. ?A8, • RECORD') 

7000 FORMAT (*-♦*• TNS'JPPICTENT SPACE ON STACK ***•) 


, MHZ.V 
',IV 


)“• pol 1 O 17 


* I 


- (,a 


^’ND 


♦ ♦ 

♦ L^NACPyU ♦ 

♦ ♦ 


C 

c 

r 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 

r 

c 

c 

c 

r 

c 

c 

c 

r 

c 

c 

c 


POn'T'rKP TO COPY THF RANOR ANT VCO (»»NCnR?PC‘»-EI)) TATA FOR TP ^ 
pp-U Tlfnv, FOt? fISR nV •’’Mi; ANTENNA PATTERN PI-HT PPUCRA*' (55) 


TfJP T?. 1 !OE AND V.r.n. n/,TA h^?. ACCPH"I.ATF1 TN ARRAY "nATA". 
Tone IS '^MK INilFX OF THR NEXT PEER LOCATION INTO WHICH lOA^A 
MAY HR STO’J’-’n. ivy IS THF INDEX OF THF FIR.*5T FA?<OF VAL^F, 
AND rXY IS TMR INDEV O’? THF FIRST V.C.O. VAIJIF, 


SIX YAFFl.tST CARDS APE PKQHTPFD AS DRSCRinFr DELOW. 


NAFFT.IST / CMTL / 

TIRFO - FHFOHRNCY INDICATOR (DASF 7 LOG OP FR NCY) 

NO DEFarLT 

TCONP - AhraY OF COMPONENTS TO PE COHTFD, OP Ypneps TO TAT 
THE ARRAY 0 '»T TO f ELFMFN'^ 55 , DPFAHLT P ’'F!ilR :5 
cools Ff)R THF COMPONENTS ARFi 

RNDFIPF nPOADSTDR 


RMO ?17 211 

"MI 722 ?21 

7F.M 23 7 2 31 


RFAL*R TYPE(7), P«N, site, DiRRCT, POPPPV, 
RKAI.TH PHnONMf?) / »00<?P.JCR*, ‘GAP* / 

»FAL*U DATA(12000), RANGR(ICOO), VCO(IOOD) 

RRAITti I'i<EO(ft) /l.n, 2,1, N.O, 8.1, 18.0, 

INTFGFR*4 TDATA(400) 

TNTFGfR^a TTYPF(7) 

L0GTCAL*4 ’’IRST, LAST 
rNTF(irP *2 OMP (^0 

INT^GFR*-? COMP(M / 2 1 7, 222, 232 , 21 1 , 2? 1 , 2 1 1 / 


TI'-LFfll) 

32.1 / 


oo no non non 


J'nollo 1~f ‘JFT 


f, 


T.onirni,*! pFrT!iF(6,^) / * .'^puh, / 

NAFILIST / CNTI, / TF'?FO, ICOFP 
FOMIV AI,FKCT=' (DATAd), inATA(l)) 

COnFOV /l."K’nAT/ TI?T.'=’, SITF, OIRFCT, FOHREV, TYFF, 

. TTY”F, N, FIPST, LA55T 

r 

C FFGIM rV ''.FT'T’TNG DEFAULT VALT’FS FOP COMPONENT SKLFCTTON 

C (NO COMPONENTS), PFADIVG CONTROL CARDS, AND SRTTIN<; 

C CON'^HOT. PAFAMF"FPS 

C 

DO 1=1, s 

DO iDirn 

10100 icoMP(J)=n 

DFAD (S,CN'^L, '^ND= lOhDf^) 
t^Y=TPF0+1 
DO 10120 .1=1, h 
7C= roMP(,i) 

DO 10 lie K=1,e 

Tf(ic.fo. irn'ip(Kn goto ioi20 

1C 1 10 CONTTNO? 

r)ECTnt(TD> ,.1) =.FMr>P. 

10120 CON'^TNPP 
10S00 rONTTVflF 
lOfiOO rOMTTNnP 
N=1HS 


SKIP 'Tvir piccK 

CALI L11NTN2 (DATA, IDAPA, 09RO, SDDO) 

CALL T2'NTN1 (DATA, TDATA, F.ORO, RPDO) 

INTTTAI.T7F TMF STACK 

10 IORG=1 

N=0 

1=0 

20 IF(T.nhGtN .r,T. 1 2000) GO TO 970 

CALL L"NTN? (DATA (TONG) , TDATA, F.DHO, 0990) 
IFd'f’YPP (2) .ME. 5 ) 

, CALI L”NTN 1 (DATA (lORG) , IDATA, F9M0, r.990) 

tf(Ttypf(1) ,.;e. fi) no to an 

GO TO 20 


40 rONTTN^P 

IP(T''‘ynvn) .FO. CO 00 TO fO 
ACCn.HULATP TANGE FLOCKS 



ono'^ non on 




i ft 

I 




f t'ol 1 o 1 "> ;;vi' - ' < 


c 

TFfPTPS'") I'-y^IORC 
ToRc;-ioPi;**J 

!’=•(. VDT. •■;0 "”0 20 

N”TSTK = »J*'1 

If?X=Tyx 

ir,YrNn=Tvx 

c i 

C rT»iD 'PilF '’nTITn i(r»TrM LTV nCTMVPY U*)*' A»?n fn v -. , p<- . I 

C THFVV WT1.T, gp (VJPIKO j 

r i 

no T=^TXy , M^TSTR i 

TF(DA'^A (n .LR.490.) IGX=l«Xf1 I 

TFd'ATft (TT .L3. T'.XFNH = Jf'.XENV ♦ 1 ! 

SO C0NTIK'1’=’ ! 

Mro*ii>-n : 

00 TO 20 j 

ACCn'ini.Avr; VCO OLOrKS i 


so TP(FIFS'^) TXY-TOPG 
TO'’n = TOFO*N 
L=T >1 

TP(L ,LT. «) CIO TO 20 
IP(Ncn«iF .or. 0) 00 to 6S 

T SOL A O' P 'I’MP POT.MTS 'T’O COOTPn 

IGY=TyY»IOX-TXX 
rGYPHD»iyY*i,oxKYn-Tvx 
NPT.S=lGyPMD“TOy 
SS CON'^TNOP 

NCOWPpNCO.IPf 1 

IP{.NC)T.nSCn)P(t’'YPF(1)-S,NCf'MP)) on TO ISO 
Y«TN = DATA (IGY) *105. 

YMAX- YMTN 
IY*ir.Y 

ADJUST 'TiTR DATA VALUES TO PPIATIVp DD, AKU pTND 
HAXTS^’M AND irNIMOU VAL”PS 

DO 70 i=:,Kprs 

DATA (TV) =DATA (TY) ♦13S. 

TPtDATACTY) .T.T. YMIN) YMIN=PAT A (lY) 

TP (DATA (I Y) .GT. YMAX) YnAX*DATAaY) 

IY*TY+1 
70 CONTTNOR 


O 



on no TOO ooo ono oonco noo 




Jipono 17 ‘ipp - >'J 


iP(\coMr .r.T. 1) r.n to 7<^ 

TGXF 7 D = T(;xKN:) - 1 
TOYFvn = n^yi^Nn - 1 
75 CONTINUE 

V!>TT«: 0 »»T TH5 ACCni"! DATA 

W?IT^(1) PF’-’O (TTYPF(1)-5) , MCOMP, YPIH, YMAX, Nt’-rj;, 

. (r*ArA(T), T= ir,Y,inXPND) , (DATA(I) , T= Tr,Y,T<;Vr kO) 

tv WAS Ti?V SIXTH COMPONENT POP THIS PnKOtfFNCY , rPAD 

PANOr; PATA ro:? THF NEXT PPEOHPNCY; OTHPPWTSc: PVAC 
vcn DATA Pf)P ?HP next COMPOMPNT 

150 IP (LAST) r ,0 TO 10 
Tonr,= TYY 
L=n 

GO TO 70 

S-^ACK APFAY TOO SPAIL 

970 WPITP ( 5 , 70 '^P) 

GO TO non 

ALL PFOCLSSINO rnppI.RTVD NORMALLY 

9B0 VRT'T'7(5, 5000) 

GO TO 9 9''' 

pri:mat"pr KNn ov tnp'*t ftlp 

990 WRTTKfB, 500 0) -^YFP 
999 PNO ''ILF 1 
return 


1000 P0PPAT(?7(1X,11A9/)) 

2000 FOPHAT(»n» ,2A9, • RPCORO SKIPPED*) 

AOOO FORMAT (»0» ,?A9, * RECORD READ*) 

1*000 PORHA'f’C 1LARFL=” * ,AR, "'•/ '0PHE0.= *,F5.1,' Mf17..'/ 

. ‘0FIR5T POTNT=’,I4/ 'C# OP POINTS*', 14/ 

. •0',10P10.3/99(1x,10F10.3/)) 

5000 FORM AT (tONORMAL KND OP JOR») 

5000 FOPMATftORNn 0«' PILF OCC'RRPD HHILF ATTEMPTING TO RFAD 
. 2AB, • RECORD') 

7000 PORWATC-*** TNS9FFICTENT SPACF ON STACK ♦♦*») 


O 


m M 








C 


f polio 17 


f)^' 




I 


o 




♦ 

♦ 


T/^v^cPYS 


« 
4f 
* 


c 

r 

c 

r 

C 

c 

c 

(' 

c: 

(' 

r 

c 

c 

c 

c 

r 

c 

c 

r 

C 

r 

C 

c 

C’ 

c: 

c 

r 

r 

c 

c 


TO E'XT'^ACT T FH P FP AT?^ ^ r A LI PP A UOl , 

P</M‘;M-yTTFT*o:?P, AK;) S^LITTFP ^AMOP I N ' p l^>! TON ^‘POv 
!.”MA ^ FTLP 2. 

'^IIP '■^AVOF data A5;5?0CT A'^FP with THK '1-FNPri/A^’O p AT’' 

A rj^-’^r: eery ok th^*' 1 ni?7. panof a*^pay. 

«^^p'OVr» APPAV roNTATV*^ PBNGK VALT!’*"r ^.’.Trfi.'r j- 
TALI iM’-* AT ton and tvoff D A'’* A PY r>’'T.”rTTNO 'V-’V n -« '> lrT‘’‘ 
T?rov 1? HANOf A<FAY, nroTNKTKn NV-M* —r- 7-T'’. 

TMF A'^PAY OF TF'IPKRATnRF DA'TA 1^ COriFn DT;!('M.Y UT v 7V'^ 
TNP’^T FJtH, XHK rALTPVATTOt; AND TyoPp DATA ATT IN A 
''^ni.‘’»Ti>L''XED ^')Un ON THR TNTMir FT! R (C.V . - i. WA^T!3 VOt"^- 
• 1'I.r.7U), THF ^ROOPAN HF»1 n ITT ^LFX FS I N pv Np A '**T or 

AND TT TWO APPAVF: 

CALfT, TFP-^Or ‘D # and 

TXn^Ffl, TFPT'Or K) , 

VOIFPF T TNDTCA'^FS "’IIP T-TH VAI.HK IM FFO^FNCF ANJ TFf’^'O IF 
TH^ riNTRORAL) nARF-2 LOHAPITHM OF TMK iPFO^MN^Y. 

J - 1,2,3 COHPPnpOND TO CALTBPATTON r (V' OPiniMD, 

Nois^? DTOi)T5’ ♦ >n nu, and noi^f dtodf sn^'^c^s r^rpi r'f i V ! y. 

K = 1, 2, “» TNniCATF TXCFF TNFO^NA^TON FOP '^l:F , Y , 

AND R ANTT?3NAF P FSPKCTT VFT.Y • 


RFAL^U rAN(;FMR^>, PA'^A(^iOm), RAMr;F2(l40, f>) 
RFM^U CAinuO, A., , TXnFP(1U0, 6, 3) 

KFAL*4 RPRPnn40, f>) 

1NTF0FF*4 FODR(3Hf.) 

TNT^O^P^U NCAM^, 3) / IB ♦ 0 / 

TNTfOrr»4 N'^'XorFff., 3) / IB ♦ 0 / 

TN'^?m;pr *4 nr (I) / 1 ♦ 0 / 

INTF0FF*2 3TYDE(2) 




ooonoo oooo 


1 





I 
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!,OCrrAT,*tt "I RST, IA‘'|T 

f 

\ 

COf-MON / T»'U0AT / .1 M*jk( 141, TTYPE, N, PISST, LAf^T 

r 

C 

P = 

in«G = 1 
on 1 5 K = 1 , 6 
nn 10 = 1 , 1 U 0 

r<A!»Gr'> (.1, K) =0. 

DO L ' 1, .1 

C»L(J, K, L) = 0. 

TXOVPf.l, K, 1) = n, 

CfK'^TMn^ 

V'1 CONTI*J»>F 
CON'^irUF 
c 
c 

70 CALI. T '’KTS2 f DATA (TOFGl , 'lODR, SOOH, p.OCO) 

IT = ITYPT(I) 

oo TO (?0, 40, ino, 200, 300, ttO ' , 70, 70, ?0, 20, ‘'^0 0), 1 


UEI.FTF '’flE »7« nTGTT FROM FACH FLFMFKT OF TOl-' MOpf .M-'RAY. 


40 CON^TIMIF 

DO Of' T = 1, M 

HODPCT) = MOOPn) / 10 

r>0 COMTIPOR 

GO fO 70 


THK TKMf’KFA''*'’RR ARRAY 15? WRITTEN 0»'T lEMFDl ’.“^FLy . 

100 KRITF(3) (DATA(T), I » 1, K) 

MRITF (ft, 10001 (0A"A(1), T = 1, Ml 
GO TO 70 


ORMnLTTPLEX TXOFP DATA INTO ARRAY TXOFF; 
NTYOF’^ (TFRFO# M) CONTAIN:? THK MAyiM^M K FOR 
TYOF^CK, TFRFO, M) , 

200 TP (FIR*??) M3 = 0 
M * MOD(MM, 1) ♦ 1 
MM * MM ♦ 1 
T. * 0 


f 

\ 




o 



o n n o n 
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TF(M^l .nr. 1) L - 1 

no ?'■>(' I = 1, N 

Tp*j«’o = ?♦(«- *ion(i»or)p (I) , 10)1 * I 
N'TXOPP (TFI'PO, *1) = N‘"XOFF(TFrHO, M) ♦ 1 
TXOFF(NTXO»:F(rFF’='C» » TFPEO, M) - OATAfl) 
2*S0 COKTTNnF 
00 70 70 


C 

C 

C FOl.LOVJ T!IF 0\M” PROOFOnP^ 70 OFMniTTtM.rv -"h:? 

C r Al.TORATION OATA. 

C 

)or TF(^irr»T) = n 
r - 1) ♦ 1 

Ml - ♦ 1 

t, = 0 

TF(H«< .07. 1) r. = 1 
no 2*^0 '!• = 1, M 

IFPKO -?♦('»“ MOTHMOnF (T) , 10)) - L 
NCAL 1) = XOAl. (TFFFO» F) ♦ 1 

CAL ( SCALd’^P’-’O, M) , T»»P’»0, M) = DATAm 
lOr CON'^TNUF 
on TO 20 
C 

r 

C *^;1E PANOF A'’P\Y FOR 1 WH7.. 2S PATPFP W1'>H 

r ''••^MPFPA'^nRF AR^AY. 

C 

400 IK(TryT>F(?) ,F0. fi) 00 TO ?0 

WRT"'c: ( 1 ) (OATA <n , T » 1 , N) 

WPTTF(f>,1020) (DATAfI), I * 1, N) 

00 TO 20 
C 
C 

r ACC»M"LATF 32 MIIZ. RMIGr BLOCKS 


noO TP (FTPS"') K'! = 0 
MR s KK ♦ N 
TORO = TO'»G ♦ X 
IF (.NOT. LAST) GO 70 20 


PFM'UTTPLKX TMS PANGF data to MA*^CH •'•MF CAU !'» a*" ^<iN 
ANl> T'XnpF ARRAYS. 

DO (00 T * 7, NM, 13 
II » (I - 7) / 13 ♦ 1 
TFREO * «» - XOD(BODB(IT) , 10) 


no o o 


J. 


Apollo 17 S'^P - 71 

NP(TFFPO) = vn(I«FE0) ♦ 1 

PANGP?(NP (TPP«‘0) f 2 * IPRPO ) » 0A'»’A (T) 

RANGE2fKPnF7r.O) , 2 * TFPEO “ 1) = DATA (I) 
r:PFFD(NH(TPRFO) , 2 ♦ TFRFO) = 

. 1.214S6‘1 ♦ (PATAd + 1) - DATAfl - 1)) 

SPFFD(NR{rFFRO) » 2 * T^^RFO - 1) * 

. RPFPDCRP (TFREO) , 2 ♦ TFRFO) 

600 CONTTNU*’ 
r 
r 

C HRITF AVD LIST TUF CALIBRATION, TXO»fP, ^*:0 

C ASSOCIATED r-iANCE INF^PMATTON. 

C 

HRITPO) CAL, NCAI. 

»F1TF(3) TXOFF, NTXCFF 
WRITF{3) RANSF2, NH 
WRITE (.3) SPrJED 
C 

DO 700 TFRFO =1,6 
IPR = 2 *• (TFRFO - 1) 

NN = VF ((TFRFO - 1) / 2 ♦ 1) 

»RTTE(6,inS0) TFR, ( PANGF2(L, IFRKO) » 

. (CAL(L, TPRPOf K), K = 1, 3), 

. f'^XOFFd, IFPFO# 0) , J = 1, 1), L = 1, AN) 

700 CONTINUE 


900 7PTfTRK 


100C PORMATC TFMnFRAT»l"=’» // 26 (IX, 1SFB. 1 / )) 

C 

1020 PORHAT(*nRANOPS »OP TRIPBRAT^FE ARRAY* // 26 (IX, 16va. 1 / )) 

C 

1060 POnKAT(*1*, T), * NR7.*, 29X, » CALIPPATTON • , .17X, 

. *TPANSMTTTFR-OFF* / 11X, ’RANGE*, 1UX, ’GROUND*, 6X, 

. ’NOTSE ♦’O*, 10X, ’NOIRE*, 1<»X, ’X*, 14X, *Y*, 14X, *7* 

« // 10(1X, F16.1, 2(RX, ?F16.1) /)) 

C 

END 


o 








tprf! M'frV'^atMSfi'^ 


\ 
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o 


00 ^it***0*t*0*****0********i- *************** *^* ‘.I i»* 

* * 

♦ l'»«fHLT5;T * 

* * 

****************** ******************************** ********************** 


c 

c 

r 


c 

c 

c 

c 

c 

c 

c 

c 


PPOnPA>' TO l.T*;? LUMA I OATA 

PEAI,»H TTTLP(II), ^Wi, r.ITP, DJPEr'^, FO”7I!V, TY” (.^) 

PEAL^tt DATA(B2'^) 

TNTFOER^tt TnATA(82'i) 

TNTPaER*2 ITT?7f2) 

INTRr.FR*2 ITYSAV / '' /, LIRCNT / 0 / 

CORMON /L'lMDAT/ TITLI!, K»1M, ‘UTR, Pir ECT, 

, TyPF, T'^YPP, N 

FLAG*: FOR TEMPORARY TRAP 

LOGICAT.*1 TRAP / .FAL'JE. /, SKIP / .FAT.*;*'. / 

BEGTN FYRC7TA7LF CODR 
GF7 (NEXT) input RFCORD 

20 CALL LUNIN (PA^A, TPATA, 5400, 5800) 

21 CONTINUE 

IF(. NOT.OKTP) 

. GO TO 10 

ELSE 

IPdTYPSd) .NP, 1) 

. GO TO 20 

FL8P 

TPfLTNCNT .IE. 44) 

. GO TO ??. 

EL8R 

WRITF(fi, 38) TYPF 
LIMCMT • 0 
GO TO 24 

22 HBITB(6, 28) TYPE 

25 PORHATC»0«< », 2Aft, • »>* / 2Y) 

28 LINCNT » LI8C8T ♦ 16 

GO TO 40 

30 TP(ITYPEn) .IB. 3 .OR, TTTPB(2) .MB. ITYSAV) 

. MRITBC6, .18) TYPE 

35 F0K!1ATf»1«< », 2A8, • »>♦ / 2X) 




non on o noonno non non n n n n n n 


i 


I 
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LTNCN'^ ' 3 

TTYSnv * iT-ynsn) 

r 

C CHOOSc APPPnPRlATE n'iT'’»JT p^RMAT 

C 

tp(itypfM) - 2) 170, 2Pr, 30 p 

HTAOPP 

100 WPIT’^(0, 10*^) PMN, STTS, DIPKCT, POI'PFV, TT’’T/-', »! 

I'^') FOFf<AT (‘ORUN *, ,\f> / »('RT'»’P * , Af / TniEKnT'lN », \f / 

, *0», AO, • TRANFMITTEP* / 'O', 10A'», A'* / 

, *0*, TO, * ROTNTR* ) 

CHPCK POP ARRAY OV'^RPT.OV 

TF(M 8?0) 

. V = 82S 

CORR’JTR V’RBPR OK LTWFR RRO»»irR0 ^’Of I.TSTTMi^ 

NT ^ PAY0(N / IS , T? / IS ♦ 1 ) ♦ 2 
TEKPORARY TRAP TO ^'KRTRICT PRINTOUT 
IFTTPA?) 

. SKI!’ = .THnn, 

TRAP = .T'»*’E. 

no TO 20 


RODF 

?0n CONTINUE 


I 

I 

I 

I 

I 

I 


I 


»S 


TRAP 
IP (SKIP) 

. SO TO 20 

«RITE(fi, 1000) 

»FITR(P, 220) (Tl)ATA(T), I»1,N) 

22S PORNATfSa (1», 1SI7 /), It, 1ST7) 

GO TO 20 

Al.t OTHER RATA 

TRAP 


o 



non 


Apollo 17 <:IT. - 7 fi 


10'' 


(• 


c 


r.o 


c 

c 

r 

400 
tt 10 

c 

*>00 

S10 

c 

7''0 

c 

c 


ro*rT^ff»> 

ir 

'■;o TO ;?'! 

IFfUfJCNT f »JL .L?. '>0) 

'in TO l,^^ 

FI,? 1*1 

4PTTif(f,, Vi) •PY^'K 
T.TVCMT = 1 
WRTTTr^., 1000) 

WT?TT-(^, )'>0) (DATMI), T-1,n’) 

ror.FATC'^'i MX, lOPT.I / ), 1 X, r.F 7 . 1 ) 
LIFC'JT 5 LIVCNT ♦ 'll 

no TO 20 

?^TIII*i P'0!’ fNE OP Flip rOVnT'''TO”S 

WRITFff-, 410) 

POPHATC’-NOPPAL FNO OF FTl.K DETPOTFT>») 

OO TO OOO 

KHT'»'F(^, PilO) 

FOnPAT (»“A!lVOP »1 AL Ffin ()** PTI F nETKCTRI)*) 

PPTMM* 

POP1ATI*0 I) 

EKT» 


* * 

♦ LtJFALS'^? * 

* * 


PHOOFAP TO LIST LUNAR DATA 

PPA1.**! TITLE (11), R"N, SITE, DI”PCT, FO«PBV, TYPK(2) 

RBAL*tt DATA(»2S) 

im’{;rR*4 inATAC«2S) 

TNTP0PP*2 TTY!»F(2) 

IWTPGPP*.* ITTSAV / 0 /, LTFCMT / 0 / 

COWNON /I.riMOAT/ TITLE, Nll)l, STTF, 


ni^BCT, K'JPHPV, 





*t.ollo 17 r.'=’P - 7' 


. »’VPK, V 

C 

C H.Af?*: “07 T*-'iro7APY TPA^* 

C 

T.00TCALF1 '»'<AP / .VALSr. /, «iKI" / .FAT-'T'-:. / 

0 

(• FXFr'«T,\nT.p cr-i-: 

r 

c (I’^r (N^^XT) TNf’'»T pfr-»r<n 

r 

/>r. ('AU. l.nVTM? (OATA, TTATA, ‘laoo, f.^rO) 

21 COXTIN”*^ 

IF(, NO'^.S-KTi’) 

, r,o T .1 AO 

r 7LFF 

TF(TTY''E(1> ,:0. 1) 

, no ”^0 70 

C 

TP (T ’’NONT .1 F. «4) 


• 

(TO TO 72 



RLOR 



WPTTE(6, 3F) 
LIMCMT = 0 

TVpa 


00 TO 23 


:>.? 

2*i) TVpf 


2^ 

»OP'*AT(*0<<<f », 2^», 

• >>>* / 

7P 

tTNCM'** a I. r FONT * I*"’ 
GO TO 30 


30 

TF(T‘^YPE(1) .LO. 1 .0!?. ITYP**(2) .V- 

, I-PVAV) 

• 

rf*>TT?J(A, 3*>I TVPF 


r- 

FOp«*AT('1<« ♦, 2A3, * >»• 

/ ;>F) 


LIKOMT » 1 
TTV'MV * ttYP0(11 

( 

V CPOOSF A '’PROPS’' A?p OitTPflT FOrFA”^ 

c: 

30 T%’(TTYPP(1) - 2) 100, 20C, TOO 

C 

r HEADFF 

C 

100 Kpnp(A», lo'i) (ir>A"'Am, i*i, ?o 7 ) 

100 FOTFA*^ (27 (IX, 1U4 /) , ?») 

r 

C CriKCK FOP ARP AY OVr^PLOR 

C 

Tf(li .O'**. 3?*i> 

. « * « 2 *> 


o n o o ^ ^ ^ o ri o o .'1 o ^ n n ^^4 n o 


Apollo 17 •• f • 7t 


C 

r C 0 KT*U 1 P M'lHl'lP op T.T«*^'' FKor?IPpf> po'' !!;;•:»!■:-: 

c 

VI - “AV-)(M / IS , M / !'■. ♦ 1 ) ♦ 2 

TPHnorjArv "RM* 70 !>7S'*’'’TrT PMTW^f^P'" 

IPC'^.RAPl 

. SKT'"* = 

(;r> To >r 
PC"'P 

2''-r fOK'^Tr.”*;. 

Ap 

TP (51KTP) 

, no 'I’o ?o 

VRITiJCf', *000) 

PPITP(P, 77S) irnATAd), T=1,N) 

27S FOPHATCSU (IX, 1SI7 /), IX, 1^17) 

on 70 2 ^ 

ATI 0'**I«KP 0 4TR 
TPAP 

170 COI/TIW"'-; 

TF(SKIP) 

. an "T| 20 

IF (1 INCUT ♦ NI. .LF. f*C) 

, an TO )?0 

FI-OP 

VIPTTF(6, 3S) TV?** 
t.TNCNT * 1 

»20 V!»7TF(.', 10 00) 

WFTTKfS, ISO) CnATA(X), I*1,N) 

ISO rOPHATlSa (IX, 15F7.1 / ), IX, 1SF7.1) 

ITWCHT « LIKCKT ♦ NL 
00 TO 20 

KBTnpB POlN*»*S »0P FNC 0» FTIF CONMTTOFS 


*400 WNTTFfO, ttIO) 
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Uir' POPMAT (‘-N'JPfiAL ISNI) 01' PII.J? n^?«rTPO*) 

00 '^(1 ^00 

f' 

V. 

'■''^0 WRTT’='(r), S 10 ) 

■"iio POPP AT C-AINOHMAL PHD PIT F DPTFr^PO*) 

(' 

MOD OPTOPN 

lonr Fo'^irT(*'i •) 

c 

FND 



C 

c: '^porti'Afi TO Lrs*’ thnar data 

r' 

p^ALP« TTTI,'’(11), ^IlN, STTp, DIPFCT, 

HEAT,*U iHTAffl?"’-) 

TNTPOFP*a TDATA(P?-1 
TH71(;fp*2 TTYPF(2) 

TNTPOEP*.’ I'»'YSAV / ^^ /, LTHCNT / D / 

(' 

C0F*!ON /I/*NDAT/ TITT.P, PITH, 

, r'Ypp^ PTYPE, N 

r 

(' FT.AOr; FOP 7"~|P0HAPY TvAl’ 

(' 

LanT(-Ai>i t"»ap / ,PAT.r/;. /, skip / .fav’P, / 

f' 

C PRGTV fXFCU'T'ARLP ropP 

r 

c OPT (N*‘XT) INF'JT PFCOPD 

C 

V? ISf, 

20 CALL L»’NIN2 (DATA, TTATA, r.UOo, J.^OO) 

IF(ITYPF(21 .HP. 5) 

. CALI (DATA, TPATA, O.ttOO, 

21 CONTI HUP 

Iff .NO*^. SKI’') 

. 00 TO 10 

C PT,S»^ 


FOPIiPV, 'fYP: (21 


DTIhCT, FOP-PV, 


O 


----- 




Apollo 17 


IK (T'^vr.); p) ,vn-. 1j 

(50 T7 2'1 

' •'1,S ” 

I’^fLIflCNT .LF. Utt) 

an TO ?2 

FI.'^F 

WPTT'^(f>, ,1''>) -TV’-*" 

LINCN*^ ■= 0 
(10 TO 2S 

KKTTFfH, ?S) TYl'’^ 

F0F1AT(*n<<^ », 2A'-'', • >'►>* / ,>v} 

Ijvrs-r =• I TVCVT ♦ i(. 

no T-0 ^{) 

IF(I?ypF(1) .1,". I .07. TTyi’^’fP) .N’’. T''’YSAV) 
MPTT'‘(f. , 1'-) TYPF 
Fon'iA? ; » K<'< PAP, • >>>• / jy) 

LI Nr N'T - ^ 

Tty;iav - ttyok(I) 

CMOOSK APPHOPPTATF OUTPUT FORK AT 
IFfTTYPF(l) - .1) mo, 200, mo 
I'FAOF’^ 

WPITF(P, I'm,) (JDATAd), T^1, 297) 

Tn>-MAT (?7nx, 11A4 /) , ?T) 

rUFCK pri:< APTAV nV’^PFI.OV 

TP(M .(5T. 

V = 

coproT!’ NunFP OF MUFF ppofiiPRn pop T.TOTTNG 

NL = KAXO(M / IS , N / IS ♦ 1 ) ♦ ? 

TFPPORAhV TRAP TO PPPTRTCT riTN'TOnT 

TP (THAP) 

SKTR = .TPOP. 

TRAP - .TRIP, 

GO TO 20 


HOPF 


r 


( OVTTNOt: 





Apollo 17 


s- 

c 


TFAP 



c 







T® (SKIP) 




• 

GO TO ,10 


r ! 

c 







WRT'''*'(h, 1000) 
WRTTP(f', 110) 

(’•nA'’A(T), 1=1, N) 



,'2'i 

FORMAT (04 (ly. 

1'‘)T7 / ) , ly, 1 = T7) 

f 



GO TO 20 



r 





c 

c 


ALT. CV'’H'=‘R PAT A 



C! 


''’TAP 



r 


CONTTN" •; 
TFfSKT'') 



c 

• 

i;o rn >0 




TF (LTN<.*\’’ ♦ NL 

.1''. *'0) 



• 

c.o ""O 

v>o 




c 

r 


4 0,7 
4 10 


soo 

•iio 

‘>no 


OI.O" 

W0TT*‘<0, O^-i) -TYpr 
LT'jrNT - 1 
WPTTF('', 1000) 

KHT"'F{n, )r,0) (!)A'1*A(T), r-=1,N) 

’^0’’1A"(‘.4 (IX, 10’^7.1 / ), IX, r.F7.1) 
I.rvCMT - T.TNCX'T^ ♦ NT. 
r.n TO :>o 

?OTJ!’’* T’OR FMO OP PTIP roNDT'’’TONn 
WMTP(F, 410) 

FORMAT FNP OP FT!.'" nR'''PCTFn* ) 

GO TO '’00 

MHTTE(( , 'S10) 

FOFH AT (• -APXO'IM AL FKO OF FH f PPTRCTPPM 


PFT*»PN 
1000 POrMAT(»0 «) 

» 

END 


o 


n n n 








4 ' 


A I > ^ 1 1 1 o W ' ’ I- ! ' - n 







C 

C 

C 

r 

c 

c 

r 

r 

c 

c 

c 

c 

c 

c 

r 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r 

c 

c 

r 

c 

c 

c 

c 

c 

r 

c 

c 

c 


pw’rf'U’’^' TO ?T.o'” Lnsr.R J^?^ 

FliOM FTTT M 

AF"rF TN'^’^FHOLM TO»’ MY H’ MM COOY P”t)ni?AY 

>KV^N NA^-lTs;' CA''MS A'-:' PFX’^PFn AS I»JPM'", Sir AS :'’Si' 
BELO'*’, ?>'P O'TE PLTTD CA'-’O AS nFSCMTEEH IN ’‘-MNIJ. 


MA'^^LIS'; / VT'’-) / 


I^Pl -0 


xr IN 
XE AX 
YM \v 


Fi-rOMENCY T.'lOTCA"’f’X (I'.ASF ? IT'- OF I ’ '.M- "fY) 

MO nOFAPLT 

FTMIMPfl VAVf-'LKNRTF ""O »’E PLO'^'TSO, nh’^ft»'LT o . 

MAXIMUM WA'/ET.EMG'^H 'PO HP PLO^TEn, nF'-'A".? 1T''.(' 

EAXTM'’M (PFT.ATIVE) PF VAl'tE TO n" pI, 0T1"P, n^FAfFT ^7.S 


TCOMP - AHPAY OF COMPONEMTS YO BF PLO-pTE!', O' I'l-Tf r;; -•, 
'^Ti: APE AY OUT '»’0 f ELEMENTS, PE’^Ani.'” f< '/v-'or' 
COP’^'S FOP *^ME COMPONENTS AP »-; 



TNDPTPP 

OPOPnSIDE 

tvno 

2}2 

711 

P'U 

222 

?21 

7 5 *' n 

21? 

? n 


PIL'^ - {LOOTCAT.) PILTEPINO PEO»’Ti»En, PF’^A'^TT . FAT.FK. 

COEFF - Prr.TE” CORFPICIENTS, OR PKPOFS to PAP THE ABirAY 

TO 100 ELEMENTS (COEEPtCIENTp SHOULD MK LEFT- Jt!.E1 T ET I : 
IN THE ARPAY, POP DEPA”I,TS SEP DtcLAI ATTON OF rOT-r-F 


NrOFPF - N'»MUPR OP PXLTEP COE F«'TC1 ENTS, DKEAHT.T II 


PFF 



PTLATTVP DB VAL»”=' AT WHICH A PtfFPEKCF r»A'K I'* T!' H’- 

PLOTtfd on tmm y axis, DFS’AULT 4'>,0 



rjon ODD n n n 'joorinn 




Apollo 17 [V-'P - PI 

- A VP II, "'*■'• U'l VAL”P CoH^^Si’ON niNG '"O T KI , n’FA'U.'” 

^<o’T-vs - tin 'fo I? r:u''?ArTs:pr: of amvotatiom , i;n nKi'A*»T,"' 


FRAl *« T rri.'^ (?.)/ 2** ' / 

PFAL*<4 vro(ionn), pangk (1 000) , FnpF(iroo) 

FKAl.*4 »’()Tks(h) / p * t • / 

FFAL*U XLTIIO.P) / F*0.0, U, . 0 , ^2,0, f^.P, / 

RFAL*U YMAVf^fO) / 0*100.0 / 

FEAL*4 PKF 

RFAL*4 yriM, VflAX, v*AX 

FEAL*U rOilFF (100) /-.OO.?!, .0041, .0445, .1210, . 

. .>440, .?07P, .1,no, .0445, .OO'H, -.0''.?3, 

. 5»*o.n / 

TS-rKr,rp*4 / ‘?12, 222, 2'»2, 211, 221, 211 / 

INTK0r2*4 rFR^O, TCO«P(5) , COPPO 
TN"’PGFF*4 N’rOFF’V 11 / 

T,Or,ICAT.*1 nFCIPt’(o,0) /lfi*.T^»'F./, PT I.TF F (0) A ♦ . F AL5F. / 

LOGIC /T,*1 POXH, "TT'^ 

PAWPLIfT /FPFO/ TFPFO, /'IIP, X«AX, VlAY, ICnv.p, ttjit, C'lr-TF, 

. NCOFFF, NOTF.G, ABSP’^T 

TNITTALT'^F P’.'JGF A^FAY 

DO 5 T- 1,1000 

PANGF (T) =0. 1 *FLO AT (T- 1) 

5 CONTINUE 

SKIP THE LA”PL GFCOOf) 

READ ( 3) 

DO 500 1=1,5 

T'’ITIALr7'l PLOTVINO PAi- AH ETEPS *’*0 1>F'='A”L'^ VAISES , 1 A* Y 

XMIN=0, 

XFAX» ICO. 

FILT=. FALSE. 

YMAX=G7.5 
" FF=45. 0 
AHSWFFS45.0 
DO 100 .1 = 1,5 
100 iro»v>(.j)=o 

PEAD riOTTTA'n PAPAHFTEIP 


O 


n r. o Cl n n r> n 


D 


.1 


1 ir 

120 


’)00 

s?o 


Apollo 17 


PFAD ('■, FKPO, rN'H-0 70) 

inx - 1 r?*’o«’i 

DO 120 J=1,F. 

TC=CnMP(D) 

no 110 K=i,o 

IF(IC ,E0. TCnMP(Kn 'lO "FO 120 

CnVTTfJMp 

nPCIDF(TnX,.T) FALSE. 

CONTTN”F 

TFfxriv .r,?. xr.Ti* arx,i) ) XLTft ftnx, i) =xmtn 

IPfXMAX .LT. XLT?1(inX,2n XLTM { TDX , ?) = XM AX 
TF{y«'AX .LT. YMAXSaoxn VHAXS (TPX) =v^fAX 
FIIT^F (TOX) sFIL*^ 
rOVTINHF 
DX = 0. 

■^NITTALTZF PLCT'»'EF 


M2 


CAL! PLTMIT ( ' DOOP.JCK.L»’NAP •) 
T.OOP IHPO'Uin FRK0”FNCTES 

nn non 


pf:Tr’>v,jKp Nn]«)ppn oF C’PVFS PFR GRAPH 

«;A=n 
KD = F 

yMTF=mM (j, 1) 

XWAy = XI.IF (1,2) 

DO ssr j=i,.i 

iF(nnnnF(i, .7 n na»hati 

IP(nSCinF(I,.U3) ) NL'aNB^I 

SSO CONTTNTIF 

ROTH*. FALSE. 

CPFRGsNA 

TF(NA + NP .GT. 1) GO to SGO 
BOTHa.TPUF. 

CPFFiG=CPERG+VH 
SpO CONTINOF 

KST-IFIX (XMIM*10.0+1. S) 

MPT=TEIX (yHAX*10.0f0.5) 

C 

C LOOP THPOnr.H COHPONPNTS 

C 

DO SPO J»1,6 
IFfPFCIDFd, J)) GO TO 
PEAD(3,PND«D9D) 


o 


no o o o o o o o n o 





? l>o1 1 o 17 'IT' - ''3 


f;o TO ‘nHO 

Sf,3 '•rM>(3,’^Nr)='»97) TTTT'^(I), (VCO ( K) , K= 1 , N?T ) 

DO K=1,NPT 

TF(VCO(K) .iVr. Yf1AXf=;(I)) Nr.T=K*1 
roN’T'iKn'? 

cot'pniF Fir^” pnivT f.nn Mnnp’’F CF points to ns nsr-rTFr- 

MST=»!AX0 (NST.^ST) 

NPT=^FTNO (N'''^,MPT) -N^T + I 

F1L*»’FP I® RF'7”FST’’r. 

TF (FTT.TT’Fd) ) CALT. FILTTR (VCO (NSTj ,NPT ,COEFK, NCO- An[{'d 
PLOT tHF C”^VF 

CAI.L PATPLT(nTLF,NOTFS,CPFPG,6. IP, IS. n,COKP fj) ,vro(!.S'n , 
. RANSF (NST) 1 , 17.0 , 1. 1 , F,psK, APSR'd) 

IFfPOTH .OR. J .NF. 4) 00 TO SfiO 
opFPOsNP 
SRP CONTI NflF 
400 CONTINPF 

■^rPPTNATF TH’f PLOT WHEN FOF IS OFTFCTFO ON Tj^pp 
C 

H4 CALI. PLOTND 
IFTPHN 
SND 



c 

C »0«TTNP TO PLOT U’NAR DATA 

C from FTI.F #2 

C AFTER INTERPOLATION BY THF COPY PROGRAM 

C 

C SFVFN NAMELIST CARDS ARK RFQ»’IPFD AS TNP'»t, siX AS DESC'( IbFD 

C PFLOW, AND ONF PLTID CAFD AS DFSCRIEFD IN PI.IKTT. 

C 

C 

C NAMFLTST / »'RPO / 






Apollo 17 SI - ^<4 


r 

C TF^FO - ^HFC)^^?^ 1 CY Ti^DTCATOR (BAnH 7 LOG O? FBF:OBp>ICY) 

C NO DEFAULT 

C 

C /MTN - WAVELFNGTP TO ^F PT OTTm^ BEFAUIT 0.0 

C 

C XflAX - :iAXT^MW WAVLLFKGTH TO TF PLOT'»*EB, DKFAnTT’ 100.0 

<' 1 

C Y^AX - i-IAXIUn*! ft??LATTVT!) DR VALtIF TO DF PLO'^'^"D, TFt'A'tL^ .',7.r, 

C 

r Ifowr - A7RAY CF COf^PONSNTS TO SE PLOTTED, OP "FFOFS ?0 F.T j 

C T HP A RE AY O'lT TO f FLLFENTS, DFFA»»L'^ 

r CODEH FOR THE COTPONFNTS ARE; 

C 
C 

c 
c 
c 
c 
c 

C FTLT 

c 

C a'h’FF 

c 
c 
c 

C NCOEFF 

C 
C 

c 
r 

r AFSFEF 

c 

C NOTFE 

C 

c 
c 

REAI.*R TITLK(2) / i*» » / 

PEAL*U Vro(IOOO), RA’IGEdOOD) , UORK(inOO) 

RFAI.*tt EOTERC8) / « ♦ » » / 

REAL*« / f'*0.0, 16.0, 12.0, 60.0, J*100.0 / 

REAF*4 YYAXE(6) / f.^100.0 / 

FEAL^U PEF 

RKAL*U YHIN, XMAX, YMAX 

’»EM,*4 COEFFdOOl /-.0021, .OOttI, .OttttS, .1230, .2C7H, 

. .2UU0, .207P, .123«», .044R, .0041, -.0021, 

. 84*0.n / 

T?JTrt;ER44 C01P(6) / 21>, 222, 212, 211, 221, 211 / 


ENDFT'J'^ OROAESIDE , 

RMO 212 211 

P8I 222 221 

YYD 212 211 

- n.OGXrAF) PTLPEPTVn PEOnTHPD, DEFAULT . 7M RF. 

- FTT/'’ER COP PPTf I KMT 5), OR 7EP0ER TO PAD TH' APR AY 

T1 100 ‘•T ERRMTS (COEEFICl EMTE SnoOLD HH I.FFT-.inSTIFT FC | 
IN the array, pop defaults SfP DFULARATION O’^ mFEF i 

- sn^inEP OP FILTER COEFFICIENTS, rFFAUL*’* 11 ' 

- RELATIVE nil VALUE AT WHICH A PFPKHEMCE 1APK IS T(i i-R 
f LOTT El) ON THE V AXIS, DE®’AULT 4S.0 

- Ai)SOLOTE DP VAL”E CORPESPOH DING '*‘U REF, DEFA"! T 46.0 

- »»P TO 1? CHARACTBPR OF ANNOTATION, NO DEFAUL'*' 


•i 



noollo 17 ;;»;p - f>s< 



rNTKC.FF^U ICOMPf^), CPHPG 

INTP'l'T^U MCOr:Fl'/ 11 / 

LOGTCAL*1 nFCTD^:(6,M /Ifi^.TPHF./, FI I.TR F (f<) /f.* . FA LSF. / 
LOGICAL* 1 F’OTU, FTIT 

VAHFLIST /FPPO/ TpRFO, X'lTN, XMAX, Y.1AX, ICOHF, ’'TIT, C'H’FF, 
. NCOEFP, r;KF, NO'»’Rr,, AB*!RFF 

C 

C INTTIAllEF •’ANGF AF^AY 

C 

no T = i, ion 1 

RANGF (T1 -0. 1*FT,0AT(T-1) 

CONTI K”F 
C 

r»o ^><'0 T = l,t'. 

r 

r I'lITIALITK PLOTTING P APANI'TFFS TO DEFAULT VAL*’Fr , TF ANY 

C 

XMTN=0. 

Xi“AX=100, 

FTTT=.FALGF. 

YMAX-f?. G 

RFF=»4«i.p 

AnS»FF=OS.O 

no ion . 1 = 1 , f. 

100 TCONP(J)=0 

c 

C PFAD PLOTTING PAFAN^TFRS 

r 

RFAn(‘i,FREO, 
inX=TFPF0*1 
no 120 J=1,G 
TC=COHP(J) 

DO lie K=1,f. 

IF(TC .FO. TCOfIPCKM r,r> TO 170 
110 CONTTNffr 

i)rcinpcinx,.n*,FAisK. 

120 CONTIKIIF 

IP(XNIN ,GT. XLIH(TnX,1)> XLtfUinX, 1) «XHTN 
IPfXNAX ,LT. XLIN(TnX,2)) XLTP (IDX,2) «XN»X 
TPCYNAX .LT. Y1AX5?(TDXn YHAXS (IDX) «YHAX 
FTI.F’PE(IDX1*PIL'F 
500 CONTTN”? 

520 nx*n. 

C 

C INTT1ALT7P PLOTTpR 

C 

TALL *’lT»rPC»00nP..lCR,L»INAR •) 

C 



oooooo non non nonnn 


1 




ApoT ] o 17 '. ' 


i.oop TFipounr? «'R?:o”i:*Jcrw'; 

DO HDO 1 = 1,*' 

DFTPRMTvr NIinDFP OF ''Om'fS PFR GRAPH 
NA = 0 

vn=r 

X«TN=XUM (T, 1) 

YMAX-XI.IM (1,7) 

PO 'j'iO .1=1, 

TP(D1CTPK(T, J )) NA=NA*1 
!’=• (nFCIDF (I, J^3) ) NP»NI34l 
'jSr CONTIN»’r 

RO'T’H*. FALSE. 

CPEP(;=NA 

IF(KA*NP .GT.3) GO TO Sf»D 
ROTP=.TR»*E. 
rPERGs-CPERG + Sn 
560 COP'T'TNPF 

HST*TPn (XMTN*10,n*1,5) 

EPT=IFiy (Xf1AX*10.0*n.5) 

LOOP TIIPOHCH C0HP0»PHT5 

DO 5H0 J=1,6 

TF(DECIDE(I, J)) GO 't’O 56 1 
PFAD(3,FKn='^')0) 

GO •*’0 5H0 

563 RPAn(3,FND=7qD) TITI.E(1), P,HST,NPT, (VCO (K) , K= 1 , NI'T) 

DO 565 K=1,NPT 

IF(VCO(K) .GT. YSAXS(T)) NST»K^1 
565 COMTINIJP 

COMPUTE FIRST POINT AND NUFPPR OF POINTS To HR PLOTfro 

NS‘^»MAXn <NST,MST) 

NpTsMINO (NPT,MPT) -NST*1 

FILTER IF RPO'ISSTFC 

IF(FILTPE(T) ) CALI FTLTFH (VCO (KST) ,N»»T,COPrK,NCORri , WOPF> 
PLOT THE C»*R¥E 


CALL l)ATPlT(TITL»,MCTES,CPEFG,f ,1R, 15.0,CONf'(.I) ,VCO(KST) , 
RANGE (NST) ,NPT, 1 , 17,0, 1. 1, F, RKF, A!iS*>FF) 
IF(POTH .OR. .1 .NE. 4) GO TO 5B0 


O 


o o n o o n o n n o o n o o o o -'i n o r 


I o ^ y s 


- >7 


Cn-- 

TOM'"! 

rr'N'T'T 

c --rvTKA"'^: rr vn>v4 voK Ts on ^np?* 

r 

ooa «• MI, il.0''-'’n 

•f^n 



ro»’TiKr TO '’i.'Tr L”M^R s'?'’ 

NO TM"’FrPr>l.A'i’T')N ; 

I'AT.'M’l’ WITH '■>10. f. 'AHr" '»?0, H. 

f^pp DFl.rTFO OFFOPF. r’.OT'FTNG. 

'^IT'-' l-’ffMGF AH") V,C«n, DATA AHF ATCnHUI.AT"'!) A' ! AY *'iAM '« 

TONG TS THE THDEV Of '•‘HE HFXT FHFP LOCATTH?; IN'iO Wi ! 01* i'A'’A 
'•ay nr'cTOHED. TXX TS THE IHPFX OF THE ’'Tf'FT '^AVO " 

AVD lyV TS INPFX OF THE PIRS-^* V.C.O. VAl*”^. 

<^pvpi; NA*'FT.rsr EAsor a>y^^ RF0'»inFn as sty m* t' ff 

•>FLOV;, AHO *'LTTr CA:>n AS DPSCFTrED it; PMNTT. 


HAHFETST / CHTT, / 

. popQUKiicY TNnirA'^’OP (HASP ? ton OF FFE0"'''GY) 

HO DF'»At»lT 

- H*’NTHUM WAVELENOTP TO RK PT.07TFD, DPFAHl.T ('.n 

- HAYIrtHH HAVStFMGTP TO PE PT.O’TEn, nFFAUI.'^ 

- M.AYTMItM (REI.ATTVF) pp VALF^ FF oi.O'"TFP, n’TAni'; wT.'i 

- AltPAT CF C’OI^PONFHTS TO PE PtOT'^-PP, 0»> FFI'ni- ; -n t-/r 
THE ARRAY 0 '»T ''■0 ^ EI.PHPNTS, f'®'FA'’I.T (• 7,F':r:E". 
rOOFS For,> riiw COHPONENTS ARi:: 


X y » Ff) 

XPIN 

XMAX 

Ymay 

Tropn 


Anollo 17 ii’fV 



- up. 


C 

r 

r 

c 

c 

c 

c 

r 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


int'o 

r 

c 

r 


•;Nn®TR 7 URO/' CRTDR 


RMT 212 211 

7MT 227 221 

712 211 


r.'-'" - Rlil.ATTVF OB VALU7 AT MUTCH A P7K»';FKC:-: RA-K TS 

PLOTTFn OM the Y axis, nEFAULT 

AFSFEP - A'lSOLUTK HB VAL»’E CORRFRPONDiyc "O 

vo'^r.s - »« ;» TO 32 CHA»ACTFPn OP ANNOTATTOV, VO PFKA»tl.T 


PPAI.*R TY'’P(2), RUN, .‘^TTE, UTRPCT, POPPPV, '“ITlF(ll) 
'’PAI *U DATArl200n), RANORflOOO), VCO(IOOr) 

PFAI.^U PPROTA) / 1 . 0 , 2 . 1 , 4 .n. B. 1 , lf., 0 , 12.1 / 

TV'»'Fr,FR*4 IDATA(40n) 

TNTKOFR*? TTYPE(2) 

!03TrAI.*4 pi«;;t, last 

KO'»i V Al.vvCE (I)ATA(I), Tf)ATA{1)) 

r.FAL*H VOTER (4) /4** •/ 

PKAL*4 YLIF ( /6*0.0, 1#j . 0 , ■» 2. 0,f,0. 0, 1*10P.O/ 

PPAT.oa YMAXS (•>) /T.*1P0.0/ 

rV7F07P*4 ICOH7(‘») ,NA (^') ,'1R tf') ,CPFPG (6,f.) 

TNTF(;FR*U C01P(P) /717,1?2,212,211,221, 211/ 

T.OOICAl.*! DPOIUK (6,6) /16* . TFjft?, HOTH (6) 

WAHFLIS'^/:'NTL/TFRKC,X1IV,XHAX,Y VAX,TCOHP,rF»',NOT:-:s,M'«;RPr 
rovpOK /l.»»NDAT/ TITi.r, f>i»v, SITF, HIHECT, fORREV, TYPE, 

TTYPF, V, FIRST, I.ART 


ro 11 SOP i«i ,6 

TNITTfLIZR "I.OTTTVO PARABETEPS TO nFFAfti,-^ VAT1”^S , H A’ V 

xRi!i=r.n 

XHAX-100.0 

YFAY»f- 7 ,S 

PFP»4S.O 

ABSRnF»4!>.C 

no lOICn J»1,6 

TCOEP(.7)=0 

vPAn I'LOTTIMG PAPAHETERS 
UPAD (S,CNTE, ENO* 10600) 



on n n o 






^T> 0 ^ 1.0 1 / 


iny- iru^oti 

nn l.'M?n ,1=1,-. 
jc- rnMP(.i) 

DO ICim Ke1,() 

jpfit'.’^o. rr(’»it’ (K) 1 CO TO iri?D 
10110 CnVTTfU*' 

!>KCT0?(I11Y,.T) r.i.vu«5K, 

10 1^0 fONTTt-'UP 
( 

r SRT ' 1 TN AMD M‘< .n>4n (*AX VCO POP “‘•ITr. coppPtJ! 

r 

IP<X«IK.OT.Xf.T>UTr)X,in ihin(Wt, 1) =XPTM 
TP(yiAX.LT.XM'MTny,.?n xLiunnx,?) = (*» ax 
IP(XMAX,I.'^. V lAXS C n)X) ) YMAXI (TOV) =YMAX 
*tA (TDXl *0 
KD (Tr>X)*0 

(• 

C L)''CTD»' ON VUIPF’’ OP rnpvps OBP GPAOn 

(• 

^o in 2 rr j*i , \ 

TPfn”riT>p(Tox,.i )) vAcrnr)=»A(TT>X) 4 l 

TP{DPC:tor(TOY,,U l) > KIMTDX)-=NHnDXl *1 

1C 700 t!ONT^N»’R 
oo'^H (Tpy) 

(inx) ♦sonoxi .O.T.31 aOTl» (IDX)*.PA!.0P. 

no 10 10'^ .1-1,1 
iv(poTnaox)i no TO lo^^o 
(’Pt:p.i (Toy,.! i*HA(Tnr) 

(TPX.j* M --nM (loyj 
OO To 10 100 

if ?oc rrppc. <inx,.i i =na (Toxi *11 CTOX) 

(Tnx,j* 11 ^(!p?Ho(Tnx,.i) 
ir 100 rovTiN” -: 
irsnn continik 
I 0f»or cnsTTM»>p 

c 

C IMI'^TAU?-; TOP PICTTSIR 
r 

CM! fLINTT (•')Ofin.,1CP.L*’?IAP •) 


pi^Ar '^HF LAP FI FECOHD 

CAT.I l.n»ITH2fOATA, TOUTA , P.^Hr, f.9Q0) 

KPTTPiP, iono> ^vr®' 

WniTPIf, lono) riOATAd), 1*1, 297) 

TXI‘*TAUPP TUP ‘5TACX BEPORP PBIDTBG PAXO* BATA 



oo n n n n n n n n nno 


n noUo V? 


V io'?P=1 

r=o 

i,=rt 

20 Ir’fToro^V 1200 H) f;o to '»70 

CAM T’IVIV 2 f 04 "’.\ (TOi. (^OOO) 

T»^(J .lO. O) r,n to 20 


!’» ri'^ypp ( 2 ) . 'V. n) Oo TO ftO 


Arcnwfir.RTT oAMcr: ni-rcK;? 

IP(PT»’5?T) IYX = TOf?0 

lOrGsTOPr.^N 

n=M> 1 

FFf.'JOT. H<?T) 00 20 

XKTOWl,= Ft<rC (I FYOFfl) /2‘>Q.792*i 
FPTST WsF*'« 

YXBGApsF 

ftrnnAr^^ 

FTi»f' :a*ic:-: VM'n^i re rf n^tiTTEP 

I»0 as TsI.NFTSTV 

IF <r>\T» (I) .OO.SIO.n 00 TO ^0 

irxpi;AP"NXBO.xp»i 

DfTA m»yR’’OW!.*fD\TACI) ♦1.0) 

45 COVTTfOF 
SO INFFT.nyrrup^I 
1 5 »Tf ' *. ' :-• '•V r 

DEt’ i ,'.V*FS py rOMPRFSFIWO ‘•‘HR APPAY 

on R5 I = T:lTAPT,NPTSrP 
tF COATA (I) .I.F.520. 0) 00 ”^0 S*’- 
DATA (Ty EXT) s'XRTO lit* (OATAd) ♦J.O) 

KXAOAPaIXAnAPfl 
IKFXTsrlXFXT^ 1 

S5 COHTTPrir 

RESET TPE OFrv;n< FOP Vro OATA, AYO 7PRO TffP rOF POEFE"' 

I0Sr.rNXP0AP*VXA0AP+1 

wcopos-o 

00 70 70 


n n 











C 

r 

c 


r 

C 

C 

r 


c 

c 

c 

r 


At olio 17 


'M 


TI vTTtL^nM? vro BlOCKf^ 


rn Tr(rT!S'’’) TCY~rolu; 

T(iPC:= JO*m; 4 *N 
L=L +1 

1^(1 . 1 ’^. «) 
inx^T'^Ypp ( 1 ) -'■' 

N'cor*i’=^;r{nt’* 1 

TF (.S'OT. r>"CT“.’^r^TX,NC'^!i^n 1 


FIND 'TIJ^ LA'ir V^Ln^ T!!E HAP, A.n.Tt’S'T PF 

TO A PKIA'^TV” f 5 ''AT.F 


VALI’.;*'. 


I/ = TXY* "XEr.A "-1 
DO 70 T^TXY, TV 
IT CO'JTI:j”^ 

j»;ryT = TXY»'r'Ii';A'' 

I ST A, P T = T 0 - M V AO A F 

TFNr>= Tf'FO-1 

COA!P'=<’^'.'T^ VCO DATA, A niTUS’’’ING 

TO PFIATIV'* 'D'ALiT IN FHF PPOCFSS 


DO PO r = ISTA'^T,TSNn 
DATA (T*1TX?) - DATA (I) ♦U'i.O 
IFFXT=INFXT*- 1 
00 CONTTNH 
NSTYr ixy 
JX=1 VY 

NPLOT=IXX + N’X RGAP+'NyA'iA?- 1 
IY=TVY 




c 


OMIT VAT TIES nilT'.IFf TME OMTEO ROUNDS 


DO 00 1 X=NX,NPL 0 T 

IF (DATA (TX) . IT.XLTH (IDX, 1 ) . OP. DATA (lY) 

, K«;TX = IX ♦ 1 

IY=TY*1 
90 CONTTHOr 

KSTY=TXY»NSTX-TYX 


!4T. YMAXS (TDX) ) 


TX = NPI-OT 


NX*NPf.OT 

DO 1O0 1=NSTX,N'X 

TP (DATA (TXT . rr.XUMHDX,^)) 

TX*IX-1 


100 CONTI N”F 

NPTS=Nri.OT-NS '’X+ 1 


^^PL^T=KPLOT- 1 


o 



A pol To 1 / I' 


I 

I 


c 

c 

c 


(' 

V. 

c 

(' 

r 




}in 


C 

c 

r 




r 

c 

?o 

moo 

uoon 


^r)O 0 
f ^r>0 

7000 


CALI. T ( ^Ynr , VO*^ r 0 , CI> L?C, (TDV^ NCOttP) , 0 . 10 , 1*=> . 0 ,Cf^r i' (* 

D.V:A (NSTY) ,!>ATA (NSTT) ,NPTf^^ 1 , 17. ^ K 1 , y (] 

An*m^F) 


IF '’'’*10 WAS '*’00 STY’^H CO^PONFNT# CiFT \ N *'W KANT,’’ AfnAY^ 
i^rr A V('0 AP’^CAY T'OP TIP "IKX’’ rOFPOMFN'^ 


TF(L\ot) r;n t > m 
T y V 

T,z 0 

Ov'< 'TM ?P 

^'f'•.Y ”(V’* ‘!''AU. 

no '•;) 

roM'^’l.'-’rtON 

M*'ITF(f,, 'so;')) 

(50 -O 

PI' ATur r, PN'' rii-p (••'''APr" tnpht) 

Wl. T"''^ (f-, t.OO')) TVI'P 
CALI. rioT’n 
F'"irjK 


POT’tl AT (?7 ( IV , 1 1 A 4/) ) 

Fot'«n AT ( • n » , .MS, • pTcnpn <sKippKn’) 

KOPPAT (»0* ,? A"., • i''!'cnr!.) TF.An') 

For?P AT ( ' ILAP^L-'* • , At), *"• / •OPR’^O.- 

. ’'’I'r :' ;t points', tu/ op potntp-',i«/ 

. •('» , 1)F1'. (IX, 10P10. 3/) ) 

PORPM (' ONOP'fAl. I’NP OF .TOP») 

FORM AT c)P OCCMRPRP MRIl.K ATTF'IPT ' ‘^n KlAn 

. PAH, * RROOPDM 

FOR^* AT (»-•** TNR”FFTCir:VT STACK ON STACK 


FMP 


'C(tv i=) , 

:p'') , 

r'TIiii. v|-< 









4 


- 

^ w 


P‘)l o 1 *7 - i ! 


4-^ 

u 


<r V :(i ^ t t 

<t 


I.^ywAPlTU 


<«A>' t ir t i «<-<< 

« 
♦ 


C 

c 


.(VtT';‘^J^ TO PLO"T ^'‘]? rA'^'\ '^MHO^nn *^MF A'’' M'- 4 V • i;T,^.«,r 'mv|*,. 


r 

L 


r 

c 

r 

c 

c 

(' 

f' 

c 

c 

c 

(" 

r 

c 

r 


'^HF »?ANr.^ ^^:^ v,c.r. :>A'^a ACCMMffi.A^pp rv app^y 
TO^r, TMF fNinn^' or ME)CT FTPr LOCATK'M TNT(* Winc!^ 

;^AV PT’ STOP'O. TXX IS 'PPP IVDFV OF TIIF ^TP‘>T i 'P'V \ 

AN*n IVY T ^MDFV TIfF FTP^T V.C.O. VAI-PF. 


\’AM^LTSr CARPS ARF UFOPIPP!) AS TNPr’"’, ‘'TX AS uPpC'TTiCCi 
P’^EOW, AND ON^F PL'^TP CAP:) AS nrSC'^TPFR ni.'^’TT. 

N A MKT. I S"' / CN^S / 

TFRFO - Fpwo»ipMCY TNPTCAT^P (PAS!* > 1.00 ^ ! :• Y) 

NO nrFAHLT 

TC'O^p - ART^AY rr (SOMPONFN^S BP PIOT'^FB, 0 ! FF'Crc '^O 
TBF A^PAY OHT TO ^ FT.PWFNTS^ OlFA'O"' ♦ 
conps FOR ^Wj* roMPONFMTF .>^Rr: 


PNPFTRK 


BPOArSTDF 


( 

C 

c 


R.'fO 

n:n 

7 FO 


? 2 ? 
2^2 


211 

221 

211 


C 


i 


rEAl*F TYP'^(;>) , RUfj, SITR, DTEFCT, FOMHV, •^IT?,r( 11 ) 
FFM.*'> PP0<;v»'t(2) / *00(?P.JCR', HUP* / 

p’?AF*ti niVTA (1 2000) , FANGSdOnO), VCO(IOOO) 

PFAL*4 FRFO(f.) /1.0, ?.l, «.0, 1 , U . B2.1 / 

INTwnrF*4 ID'\TM400) 

TNTFr:Fb*2 rTYPF(2) 

I.0(;T('AT.*4 FTBnT, LAST 
TNTFG*'R*2 IC.1MP(6) 

IKTF<;fp* 2 cn«l"(n) / 212, 222,232,211,221, ?11 / 

I.0r,ICAT.*1 DECT OE (ft, ft) / 3ft * ,TP»'K. / 

NAMFMR'*' / CNTI. / TFPEO, ICO^P 









■.'ftp4 


A t > o 1 1 '■> 17 • '. ■ - ' wj 


='i>”IV ALVNCP (!)ATA(1), riATAfl)) 

/L'"{iur/ TTTI.r:, T>'tN, ?TTF, ?Min'!’V, TY!K, 

TTYpr^ V, PTPPT, I.Anr 


no 10500 r=1,5 

N’o ('OKPOK’?N'^'> P1.0TTK0 nKif.Pf;.!; PFQMpSTRC 

no 10 100 .1=1,.^ 

10100 T^'OMP(j)=n 

c 

C ''FAD FFP'OOPNCY TVOTCA'^fK^ AND CO f»pON ”^0 p S' i' ] ()"''s- • • 

C 

:<'■ Ar>(5,cp-"i., f-Njnss; lOf.oo) 

1UX=rFR’^'(Ul 
no 10 120 J=1,0 
rr= C0»«T (.1) 

1)0 10 110 K=1,5 

iFfrc.EO.Tc'oipf*:) ) no TO ioi?n 

10 110 s-ONTTNlIf 

DOCinEai)X,J)=.nAi;;r. 

10120 CON"'TNOr 
10S00 CONTTN”P 
COX'” T Mir F 

c 

c rniTiALix : ” ir ''lo'Ttep 

c 

CAM n.TMTT (?Ro;jn*r) 

M-30^ 

c 

C SKIP '•■HP I.ASPL PLOCK 

c 

CAM M1MTM2 (DA'^A, TOATA, 0. '‘«0, OlOi,') 

CALL LITMIVlfDATA, TOATA, OOrtQ, 0,000) 

C 

C TNITIAM? S T'1'=' STACK 

C 

10 r08G=1 
«*0 
i.=n 

20 IP MORGAN .GT. l?O0O) HO to 970 

CALL LUMTN2 (DATA (lOPG) , IDATA, 0.«'80, r.noo) 

TK(Ttyp?(2) .NM. 5) 

. CALI TllMIWIinATMTORC?) , IDATA, finpo, soar) 
IP(TTYPF(1) .GR, 6) GO to ttO 
GO TO 20 


•tiff- 

4 u 


c 

c 


c 

c 

c 


c 


n n n oooo noo onn n 


A ; o] lo 17 


<• I.’ ti 


■ ... 




A',v"snLAT'^ ^^(^Hr,.^: 


40 rniv'TT 

Tr(iTYpP(?) .vr>, f) CO '^o 00 
Ti’(l-IPS7) iy'f=T')10 
Topos jopi:+V 

V- 1 

T’^-(.NOT. T,A7?) '-.0 -^<1 20 

NpT;' r K=N»WI 

:nx-iyy 

T(;yr\tp=TXX 

FTNP nr- ".A"’ 

no on jx T , ^!PT'^ 

TF (DATA (D . 1,0. 'PO.) TGX- IwX^-l 
r.'^fDATAfn .LK. I''.K0N0 = ir.XFNH ♦ 1 

C,0 .’ON'^IKUF 
\»ro«3=0 
GO TO 20 

Acrv.»n,A"'E v:o tlccks 

fyO TK(»'TFS''') TXY=IORG 
ioro=Topn>K 
L=T,+ 1 

IF (I. .LT. «) GO TO 70 
TC.Y-iyy + TGX-TXX 
T(;YEMn = TXY + TGVFVp-rXX 
NPTP.'^IGXEND- IGX 
NCOMO=NCO’»iP» 1 

TF (. MOT. rtFCII)’’ (T^YPF(H -S,NCOMP) ) 0.0 TO 

vnTN=r A.TA (ir.v) ♦ i is. 

YI^AX- VMTN 
ty=Tv;y 

aDiThgt nn vM"'^r, to pplativk scai.r, amp ktfh htwtm”** aho 
MAX i.MHH vro rii'^onnH the t(IPN 

DO 70 1=1,MPTS 

DATA (lY) =nATA(IY) ♦ITS. 

IF(DATACIY) .LT. YMTN) YIINaDAT A (I Y) 

IF(DATA(TY) .O.f. YMAX) YHAX=DATA (TY) 
lYaTY^I 
70 COMTIMOF 


PIOT THF POINT:; 




Mono 1 / ••yv 


CAT.T, GAPl.OTrf-'R ’0 (T'^Y^’P(I) -S) , DATA (TOX', ,^^TA (H;Y) , 

MPTG, yvjTfj, y«AX, 

r 

r T’-' THIG WAS •"HS STX'^H (*0'< "ON'F N'^ , GF"^ N PW FANGK DATA; 

C GFT S FW VCn n,A7A 


ISO (I.AS'^) GO T’O 10 
TfOO;-TXY 
l. = 0 

on “^o 20 

c 

C ST AC K P AY TOO S !« A T !. 

C 

>70 yPTTO (^,7000) 
on Tf) gno 


r IMPH.M 0" rON 

c 

•nlO *'hT'^'=‘(S, SOOO) 

GO TO soq 
C 

0 !’^Fa.AT”RR P‘I0 OF CA'^A FILP 

r 

•no wpiTF(F, f^mo) tyt'" 

•>oo cALT PLOTiJn 

;r'”''»wN 


1 '00 '>'or'f' A r (27 ( 1 Y , n f' '*/n 

FO .'F A "^ ( * 0 • , 2 A S , • 0'-'(’0''>0 SKT''”F!)*) 

■jago PO PF A’>' ( * 0 * , 2 A ’ pi^CO''’'' RFAD*) 

ii'OO FnFPAT(« ILAOPL^'t* ,AS, •"’ / 'OF'IFC.- Ml" . V 

• f'FTi(^r ’'OT'JT- * , T4/ 0^ PO TMT'i = ' , T P/ 

• 0» ^ 

FOPP AT ( 'OynP.IAL FNP OF >70p*) 

fr.oo FOPh''T(*0-<-'Vl' OF PII.P OCC'iPPFD WIliI.F ATTFwpTr>OG •’'o :■ 
. ?A*^, ' '^PCnSD') 

7)00 F()»r AT (’-*** I'lS'IF'fTCTFMT SPAC’^ ON STAC>' ♦***) 


PHD 


- 'If 


oT OFF -/I r. 


; Ml ' , 


n o n n n r> o n o o n o o n n n o “i o o o o o o n n n n 


.1 


Aj-ollo 1"^ .V’’ - ’■/ 



■JOnTiNf TO PLOT TJtSAP SVr> n^TA FROM FTLF #?; 
no INTFPPOLATIon ; 

-ALUPF WITH S10. M. <T= OAMOL' <= 'V?0. f'. 

ARE DFII.KTLID BPPnPE PLOr^INC;. 

TRANnMT'^'^FP-Ofi’F DATA AVF PTOTTFD AS A BASLITNS I-TiP EACH CT.A' P'O.” » 

RAVGK ANH V.C.O, DATA AP P ACCUMULATED TN AFTAY "OATA”. 
lOPG I? TM’^ TND'-’V OP T'iF NrX'»> PREP LOCATTO?; WHJOB OA: A 

MAY BP stored. IXX IS TI!K INDEX OF THE FIRST RANGP VAI,'’I , 

AND TXY IS THF INPFX OF THF FIRST V.C.O. VALUE. 

SSVEK NAMELIST CARDS ARP RKOUTRED AS INPUT, STX AS DEOCI; I» 'T> 
BELOW, AND ONE PLTTD CARD AS DESCRIBED IN ot.TNIT. 


NAMFLTST / CNTL / 


Ti-REO 


PREOUENry INDICATOR (BASE 2 LOO OF I EgUKNCY) 
NO T)FFA"LT 


C 

/•* 

s. 

r 

c 

c 

r 

c 

c 

c 

c 

c 

c 

c 


XMIV, 

XMAX 


YMAX 

ICOMP 


VSWL 


minimum ^Nn nAXTM’»H RANGE VAL»»FS TO VV PI/'"T'i», T’ 
WAVELENGTHS IF VSWL = .TFUF., O'^nFFWIS'^' p! 

DPFA"LTS: 0.0, 100,0 

MAXIEnn (RELATIVE) DP VAL F TO PT’ PLOTTFI), DriftMi,'- ; 7 . 

ARRAY OF COMPONENTS TO BF PLOTTED, op 7,1-ROFS T(. CAP 
THF ARRAY OUT TO ^ ELEMENTS, DFFAUL'' ”,rwnr«; 

CODES FOR THE COMPONENTS AH P: 

ENDFIRE UROADSIDR 

PHO 212 211 

PHI 222 221 

7ED 21? 211 

(LOGICAL) IP TR»'F (DEFA»«LT) , DB VAI/'ES .’I F 
VS. RANGE IN WAV«*I ENGTHS, OTHERWISE VS. RA* 0'! 


Apollo 17 


- 


r 

c 

n 

Sm 

c 

c 

c 

c 

c 

c 

c 


c 

r 

c 

(' 

r 


10 no 
c 
c 
c 


I5fi.’ _ I VF nn Vri:i^ at which a PK’'’^hrNC>’ (frix 1«; to m- 

PT.OTTpr, ov J-,, : Y IXTS, DEFAULT U^.f) 

AUSfE^ - AnoT.riTV [)T VAX.”!*: COPHKSPONDTNa ""O 'M’F, n"I7,ftrT U',0 
VOTps - nn >'o 3^ CHAPACTFPf; OF ANNOTATION, K(,i nKF*”I," 


TYPn(i) ^ HTTP, PTprrT, FOPF’^V, TITT'’(11) 

fvai,*U nA"Af!?000), TANGF(IOOO), VCO(10O'^) 

T'='AT.*U t'ANnK?(1»lO, ^) , TXOFF(1«0, 3) 

PKM*H KP^.)(f,) /I,'), 2 , 1 , U, 0 , 8 . 1 , n.O, 1.'.1 / 

tMTP(ipp^4 Tr>ATA(U001 
Tvrn(;i7p4:u mtxo’^’f (^ , 3), NlM^l 

TNTBOFF*? TTVP’'('>) 

I.or,rr».I,*4 *'T'r;r, i.ast 
FO”IVAL’^VCR (OATAd), TnA-^A(l)) 

FKAI.*P ( 4 ) /a** */ 

FFM.*4 XT.TN(P,P) 
rTAl.*4 Vf^AYHfr,) 

I\’Tp,;pp*4 T''OXP(^l , FA (^) r in (^) ,CPFPC (f, 

JNTFGFR*tt COHPffi) /? 12 , 2? 2, 2 32 , 2 1 1 , ?2 1, ?31/ 
tntfgfp*« N’ur>) 

i/HiicAL*l nFcinr: (ft,f') /3 «*,ti?hf./,hotH(0) 

?.0(3TCAl.*1 VH4I. / .T^'JF. / 

MAHFf.lST/CN'^L/TnRro,X'*TK,XMAy ,YWAI, ICOHP, F 'K, Al'ST L h , *'OT: n , VFVT 
('OHFON /I nVOAT/ TTTIX;, X"H, ttTF, niP'TT, FOM'^V, TV ’ , 

TTYPF, ».’, FIRST, I. AS? 


on 10 son 1=1,0 

TNITTAI.I'/R nT^oTYTNG PA'-' AH FTFPs np DEFAULT VAL'’P;: , 1’ A* Y 

XMTK*0.0 
XHAX^inn.o 
YHAX=67.S 
PFFett'^.r 
APST'FF = 4S,n 
on 10100 ,T=i,P 

iCOwn (j) -0 

BE AO ftOTTyn PAFAw’-TERS 


BRAO C*^,Ci.t1., rvn- nr.nn> 
IDYsIFRPO*! 


•s‘^ Jj*’* ' 


S65.ii^S4. -V.f > 








Apollo 17 ‘'.KP 


PO 11120 J=1,r. 

Tfr rCf»P(J) 

no 10 lie K*1,6 

TF(Tc.Eo. TrnirrK)) r.o ro in 120 
101 in ro'iTTNTip 

n^Cll>E(TpX,J)=.FMSP. 

1C 120 roMTT»jnF 

c 

r MIN ANO MAX RANOF, AND MAX VCH FOR 1*HTD COM 

C 

VLTM (IPX,H = XMTN 
YT.TMnnX,?) - XMAX 
YMAVr> (IPX) = Yi^AX 
N’A (TOXl ’fO 
vp (7DX) =0 
C 

C DFCIDF ON T:I" NDIFFR OP CHRVFS PEP OKAPH 

r 

po 10 200 J=1 , 1 

T? (P'?rTrR(inX,.1 )) NA(TDX) =NA (IDX) ♦! 

IF (D’^rlPF(TOX,.7* IM KB (IPX) aVB(TPX) ♦I 
10 200 CnNTT’''’P 

PO'^H (TDV1 =.TRUr. 

TF(KA (TPXWNn(rnX) .OT.1) BOTH (I PX) * . PALSP. 

DO 10300 Jtr1,3 

I? (POTH (10X1 ) <;o TO 102*i0 

CPORG (TPT,J I^NA(TDX) 

CPSM1 (TDX,.U 1) fTDX) 

GO ’^O 10300 

102S0 CPPPG (1UX,.1 )=J»A(rnX)^Mn(TDX) 

CPEPG (TDX,J4-31 =rPERG(TDX, J) 

1C30C CONTIN”P 
105C0 CONTINUK 
IP 600 CONTI N»»F 

XSCALE » 10, 

IP(VS«I.1 XSCALP = 6.10 
C 

C FFAP TRANSHITTPP-OPF DATA AND THE AFSOCTATFO PANGA VAl 

C 

PFAD(3) 

RRAPO) 

RFAI'(3) 

RKAP(3) TXOPF, NTXOFF 
PKAD(3) RANGF2, NR 
C 

C RFMOVF DATA »OP *>10 «. <* RANOF <• S20 H. 

C 

DO 20 ^>00 IFN ■'1,6 


o 


Apollo 17 


T \l T* Y T = 1 

>’ = \r. ((I7t. - 1) / 2 ♦ 1) 

yiiToif'i. r FP!:('(IPP) / 2 'n, 702 '’' 

IP (,%'('?. Vf^WT.) XMTOWT. - 1, 

no 20400 r - 1, N 

TP (I AVO'-2 n, .LT. yr.TI (Tvr, 1) / v^I'-OVT - >.) «;o 

TF (rAyOF"* (T, -"PPI .O'". Yl.r?! (IFF,2) / XMTnwi - «.) On 
TF (KA?;(;’"2 fT, IPP) .OF. Oio.) 00 ^0 ? 0 ?no 
PANO ?(it.^XT,r"21 = (FAN'JP? (1, 1 pp) ♦ 1.) ♦ YM.'nw] 

no ?!'irn 1 = 1 , 1 

rXOpF (rKT-v- , TPP, .11 = fpf’,. 1 ) ♦ ii^. 

2 '' ion rnK”Trp"'F 

00 TO 20 1'»0 

2 r -»''0 IF (r AFOfF (T , .IP. '^>7'^.) oo TO 204^0 

’'A‘jr-1’7 (TM2VT, yp-?) = (PA IOt'o (] , jppj » 3,j y ym-tokL 

no 7n7r>{- .1 - I, 

1 v.;fp (T\rx f , IPP, ,11 •= '"vnppfT, IFF, J1 ♦ no. 

roKTTpnf 

2 ( ion Yw n ’• t?) = TV"X-^ 

rypyr r TVPX'"' ♦ 1 

PO.'in .T CO N’T n n o 

20000 covt:f”p 

c 

C IN r"-! AI "’K TFI'T ""l.CTTFR 

C 

CALI, rr IVTTC 10 TTi.jcR.L’"<AP *1 

V= 3‘-'. 

c 

c PT'An 't’MF LARPL PFCOHP 

C 

CAU I,t|NI \'2 (DATA, ThaTA, OOMO, oooni 

WM’TPfO, inool TYPP 

'*’OrTP{ 0 , inoOl (TDATAdl, 1 = 1 , 707 ) 

r 

C TMTTAT 1 '’F 'PJIP OTACK nFFORP '»FAri*in UAVO® I)A'"A 

C 

in ToHo=i 

M = 0 
L =0 

20 IF(IOPG*N .OT. 120001 00 TO 070 

CALI. I.nNIK 2 (OATA (lOPO) , TOATA , F.«>nn, nOOfl 
IP(T'TYPT ' (11 .IP. Si (10 TO 20 
C 
C 

IP(TTYnp( 2 ) .FO. 6 ) (10 TO fO 
C 

C ACCPMrLf?*: RANGP nLOCKS 

c 


I' - inr 


20uro 


oo onnno n ^ n n n 


Apollo 17 ‘IfcT 


10 1 


IP(FirS'f) TYX-*TORG 
TORO- lOPO^M 
t 

TP f. NO*^. LA*?T) GO TO 20 
X1TCWL=FP'!:0 (TTYPP (1) -S) />')0.79:>S 
T**(.NC"'. V!^WL) XMTnWL = 1. 

NXDGAP=-C 

N'yflGAP-0 

r 

r FIVP ’^ANdP VM”P5; To P'-'! r»? 1 I'PTEn 

r»n uG 1 

TK(r>A'"A (T) .■;?.Gin.n) git ■'o '■-o 

NXHC.\r'’jy.-n;A'’>i 
OATA fI)-VHTnwT> (DATA(T) * 1,C) 

U" 

'•-0 iNpy':'=rxnGi\'’»i 
ISTAPT-TNKX T 

•urT.FTF VAL'*SS ny COMP'IFSFTX'T TH^ APFAY 

DO I=lMTAnT,NPTSTN 
TF {DATA (T) .LK, ‘■>20,0 GO ?0 
DATA {INPy-P) =XMTOWl*(DArA{I) *1.0) 

NXAGAPsNXAGA?4l 
IVPXTsT veXT* 1 
'VS CONTI NPP 

FPSF>* '»'1|P 0»TfiIN FOR V('0 DA'^A , AND '/PRO TIP- rnh f>'>N t *! >' rO'iN'T ' 

T0RO=KyP0AP*»r AGAP*1 
NCnnP*:0 
GO TO ?0 


ACC*‘«1'’J.A'PP VCO BLOCKS 


60 IPCFTFST) IXY'IORO 
T0P0«10FG»N 

L»T.*1 

tf(l .lt. m) go to 20 

IDX*ITYPF{1) -S 
MCO!1P*NrOJiP*l 

IF(,VOT,nFCrDF(ID»,NrnTP) ) r,n TO ISP 

FTKD T!IP LAGT VAIDF FF'fORT T»!F GAP, AND ADJMST D'! VAM'P'* 



ooo '^nn ooo nnorj no 


' f< 1 1() 17 •:* f’ 


- ' .1 


• K y 


TO A rKI/''"IVK 'V/AU' 

T Y-=T YY'»NVnf;f, ''-1 
no 70 T - YY, r Y 
T'ATA f T) =0ATA (T) ♦ 1 •^r 

7n rOKti^flK 

TN PVT - TYY«-»|V ri.;Af» 
rsTft p': = To^o-'fXA''.Ar 
TRMn=Torr.-i 


COMn.jt'.qq -r||,; vC') TA^A, AOjn.STIWC 
T’o 'U’Af.'’ I*; T'fi^ pHorP5?s 

00 HO T = I PWO 

(IWFXr -n.ATA (I) 4l 10.0 
iNEXTs-IVEXTfl 
HO CON'^T1»»r 
JiOrXs JYY 
VX=TXY 

Nri,fV" = T YX*M Y »=';A-’4 NVA(;a?-1 
TY=1 <Y 


OMIT VAI,"-’S onFOTOP TOH POOVDO 

no on TX = *1X, MPI.OT 

TPrnA‘»'A fTX) , T*". .op. data (I Y) .(IT. YE ax:; (TpY)) 

. tJ«;Tx - IX ♦ 1 

1Y=TYE1 
on CON'^TK^F 

NSTY=IXY*N‘;-(’X-7XX 

IX=N«LOT 

NX'MPLCT 

no 100 T=N*;rx,*JX 

T*-MOATA nx) .(;T.X1.TH<T0X,7)) Vp|,OTrrMn.r»n »-1 
IX^TY-1 
too cox'll NO** 

NT'Tr»=wri ot-M'^tx^ i 

nt.oT VK 

CALI. DATPI.TC'^Y'''’, NOTES, rpRPG(TrX, MCOR»») .XOCAI.F, ( ( KlHiMF) , 

. DATA (NSTY) ,DATA(N*;TX) ,NPT.S,1,17. , 1, • ' o(n'X) , 

. 7F", APflOTP) 

PLOT THE OASriri'F. 

CATI. l ASFI. (TXOFE (1, toX, HOnfKrONP - 1, 1) ♦ 1), 

. RANOF>(1, rnXI , HHCIDX) ) 



Sprtllo 17 n - 1,' 


C 

c 

C ’K TMI5 VAf- •? 1X1'! CO.Il'ONPNT, HKT A V PV lA'jn" 

r C.KT A VCO APr*AV POR THK VRXT COWPON^’NT 

c 

c 

I'iO TP (LAST) 'in 'n io 
lOROs TXY 
L»0 

on TO 2C 

r 

C STACK AM. AY TOO .SPALL 

C 

‘>70 WFTT'-Mf., 7nno> 
r,0 '^'1 'ino 
C 

r V()P*»Ai ro'-'ri.T'^Tov 

c 

'’RO 'icon) 

RO -ro on '4 

C 

C f>I!P'<AT»'pP psn OP FTT.5 C*TAPE" I!«P«T) 

C 

9P0 «RTTP(6, hOOO) TYP*^ 

*>p'» CALL ri.n'^SP 
PKTi’RU 

r 

c 

1000 POPPA'j (?7{1 Y,iU4/)) 

200C POPPA*! (‘O' ,.‘AH,» RPCO?n SKIPPEDM 
AOOO PC!tPAT (*0»,?AH,» PPCORD READ*) 

ttOOO PO!<PATf*1LA3?L****,Aft,»'*V •OPRRC.a '“07. 

. •OPIRST POTKTs*,T 4/ »Oi OF PniNTS* » , ^ 4/ 

. 'O', J/'iOpy, 1CP10. V) ) 

FOOO POPHAT (»CNO*»'1A!. OP JOP») 

fOOO PORE ATt •f'ENl* OV PILP (XTCORREP WHILE ATTF'»P‘»'I N'l •’•n 
. ?A4, » ?PCfJPT>») 

7000 FOP4 A'»' TMSnPPICIFHT SFAC» ON STAOK %*••) 

c 

c 

END 






r|iT. t. 



r% n n noon n 


17 


V 4 


^ 4: 4i 1 

♦ 

♦ 

^ ^ 


L'tviN 


<■ ♦ ',■ .'.- 1 <*».(.♦♦*< <• 

* 

» 

« 




r 

c 

r 


I" 

f 

r 


c:itr^rO»''"I*IP !/’MTV (r\t A, THATA, *, *) 

r^’A:') 1»’NA'’ n.ATA Tf,?r 

"Ap.’ A‘»7AV.<i 

AfAT*tt nATA(1) 
fNTF;1’“^*4 TDA'-ACI) 

CtiA?' ?CTr > HAT A 

; '^AI TfPKini) 


/ »T.A Tl, 


t ^ » ^0 


, •'»••.*( f>f I. A- », 


• r.^i\f:r?**TT» , TAun'"*^*, • i “i 

• 2 rM-^. », * ^H7.. ‘ ► •:• 




*1>. M!!’. 


•77 MH7,. • 


PFAL*'’ 


/ » 

• T ■>• 


Mipf 

» , • P A ‘t'1 T? 


» ^ V i 


•)K' 
. r 


•* ‘V. 

r'FAL*« n»K, SI"!, DIPPCT, FOfIpWV, TTTf.Ffll), TrPM2) 
T^PTrP*': '^0 -rypr APPAYT 


TXT^nvM*’ TPXtl,!?) / 1, 1, 1, 

‘*4 3, 

ft t hf f’0 

?, B. 'i, 
A. 

n, 11, A, 

m>'rcn*n i.ait 


1. 

f', 

y. 

12. 

7H. 


2 

f, 

; 

p 

10 
1 1 


1 

1 

h 
U 
I! H 


i 

f 

7 

M 

ir; 


TYT •; rro'^ pyrn»’Mri) 

IffT»?KRP*2 l'^‘YrrM21 

Co»i»'nN pr.orK pnr pft*»kshd '>ata 

C01»10N /L”?4r»AT/ TIYIF, 7**H, 
TTYPH, H, 


HTTP, l-nviiV, TY'*', 

FTP5T, T.Ar;*!' 


n 







C 

c 

c 

c 

r 

c 

c 

c 


c 

c 

c 

c 

r 

c 


r 

c 

c 
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RfICORD CUUMTrWS 

TNTERHP^'i TPLK /17/, TPKC /78/ 

PFGIN '^yP('U'"APLS CODE 

HESET PECOPn CefJIITFP 

PIPRT= WALSF. 

IRPr > TRRC ♦ 1 

IFCIFEC .LE. TIDX(1,IBLK) ) 

. GO '^0 1G 

n.<^F 

TP”C - 1 

FI»ST=. 7R!!F. 
inLK = IPLK ♦ 1 
TF(TBLK ,GT. 17) 

. TBtK = 1 

TTYPE(I) * TTl)X(7, TBIK) 

ITYPE(2) = TIDX(3, TBlK) 

TYPS'd) s TYPE1 (TTYPE(I) ) 

TYPE (2) * TYPK2(ITYPE(2) ) 

SEIECT APPRCPfiTATE BFCORD TYT>E 

10 IFfTPLK - ?) 100, 700, 300 

HEADFP nECOPP 

100 PEAOfU, 1000, EKD=700) F«N, BITE, DtPECT, FOPHEV, TdLr’, H 

GO TO '■‘PO 


200 


C 

C 

c 


300 


c 

c 

c 

c 

c 

c 


«ODf RECORD 

REAnfU, 2000, END=97«>) 

GO TO OPO 

ALL OTHER TYPES 

FEAD(4, 3000, pnn*97S) 

GO TO OOP 

ERD OP FTIE CORDTTIORS 
PREDICTABLE 

( LAPEL RFCORD EXPECTED ) 
( *'> BEGIRRINO OP A NBV ROE ) 


(IDATA (T) , T=1, H) 


(DA'^A (T) , I * 1, ^) 


o 

V) 

. \ 


non nnnoo on no oo: ooooo 


o 


Anollo 17 


Kf. 


c 

'>70 RE'^npN 1 

UNFXPErTFn 

( i!0V-T,ABFL HKCnHl) EXPECTED ) 

1 => HTDPT.E OF A EtlM ) 

>?rr, WPTTV(f>, UOOD) TYPE, IREC 
RPT'U'N 2 

RFT'MiN OATA 

737 LASTS. P»T c;i;, 

TFdREC .fo. TIDX(1,inLK)) IAS’’’ * .TRUE. 

«<t?>rnpu 


lonr- FOPKATfUAfi, 1 AAH. A 4 , Ift) 

?no 3 format (S ( 20016 ) ) 

7000 FOPMATCS (2nOF6.1) ) 

4000 POF«AT(«0*** FMD OP FILE FO»)ND WHILE ATTEMPTIN'; TO PRAP •• • , 

. 2A«, "• RPCOHD *,I3) 


END 


* 

HIHTN 2 * 

* 

** 4 t*« 4 t« 4 i* 4 i<»«* 4 ‘ 4 > 4 <TP *«*«* *« 4 i**P« **P«* ***«* ****** * 4 > ***** 4 > *: 4 > «* *********41 

SUBROHTINw LUNTN2(r>ATA, I DATA. , •, ♦) 

PEAO LUNAR DATA TAPE 

T.APF DATA APRAVO 

BFAL*<t UA"‘A(1) 

INTF(?ER*4 inATA(l) 

CHARACTER DATA 

REAL*R TYPFini) / ’LABEL », »H0nE *, ‘TEMPPPAT*. 

. •TRAHSHITS •CILIORAT', • 1 MH7. *, 

. • 2 HHZ. », ♦ 4 BHZ. »» * H i«U7. t. 


noooo nnn noo onon o ono 








O 


Apollo 17 HPP - 107 


*16 MUZ, 


• 12 

SHE. 

t 


/ 


RFRT.Tft "'Y'-'='.? (6) / • 


•UPE 


•, •TPP OFF *, 



•ION 


•RANGE 

t 1 

9 

V. c, n.* 

/ 


REAL*R RUN, ST"'P, RIREC'^, POPREV 

, TITLE f11) , 

TvrF (2) 



INDICES TO ’’Ypw ARRAYS 








IHTEGEP*2 TTDXr3,17) / 1, 

1. 

1. 

1. 

2. 

1. 1. 

■> 

9 

2 



3. 

ft. 

ft. 

4, 1. 

ft. 

s 

f'. 

f'. 

6. 

1. 

7. 

ft. ft. 

7. 

6 

2, 

R. 

•i. 

12. 

R. 

ft. 4, 

9. 

S 

24, 

9. 

6. 

R. 

10, 

ft. «H. 

10. 


13. 

11. 


7H. 

11. 

f. 




LOGIC RL*U FIRS?, LAST 

TYPF CrOF RFT’IPNFD 
INTFGEF*2 TTYPF (2) 

COMHON BLOCK POP pFTOnMFD DATA 

CORMON /Lt’NDAT/ TITLE, R»TN, SITE, nirFCT, l-oi*' i V, TY"» , 
ITYPF, N, »IRST, LAST 

RECORD COUNTERS 

INTE6PR*« IPLK /17/, TREC /78/ 

RRGIH EXECUTABLE CODE 


RESET RECORD COUN'^FR 

! 

FIRST*. 7AT.se. 

IRPr • TREC ♦ 1 
IP(IRBC .LS. TIDX(1,TDLK)) 

. GO TO 10 

C ELSE 

IPPC ■ 1 
FIRST*. TRUP. 

IBT.X * IDLE ♦ 1 
IPdBLK .GT. 17) 

. IBLK » 1 

TTYPP(I) • T1DXC2, IBIK) 
ITYPE(2) » TTDX(X, IBLK) 


o 



no non oonoo nnonono ooo non non non 


At>oJ lo 17 - ir»^ 


Typp(l) = TYP'll (rTYPE(l) ) 

TyPi^{2) - 'TYPE;(TTyPE(?) ) 

SEL'-TT .APPROPRIATE RFCOflD TYPE 

10 rpdPi.K - p) ino, ?no, loo 

HEAP^R REmnn 

100 PKAP(4,1C00, END=P')0) (TPATAd), 1=1, 2071 

00 TO 700 

MODE RECAon 

2<"0 PEAD{4, 2000, KNOsOOS) (IDA^A (T) , T~1, Nl 

no TO '^0 0 

MI. OTI'EP TYPPE 

300 RPAD(4, 1000, FN0='^'>*>) (D.ATAIT), T = 1, ’) 

nn TO 707 

END OF FII.P rONPITlONn 
PRPDICPAPLE 

( lAPFL RECORD ETPBCTED ) 

( => DFOTMMINn OF A NEW R”N ) 

770 RPTPFN 1 

f’NFXPFCTFD 

{ NON-LAPFf. EFCORO EXPECTED ) 

( => MIDDLP OF A RDM ) 

Op*; HRTTPffi, 4000) TYPF, IRRC 
PBTnPN 2 

r.FTUFN DATA 

990 LASTe.PALS’’. 

IPdRFC .BO. TTDXC1,TBLK)) tAST « .TR’JF, 

RBTDRM 


1000 FORMATf?7(11 A4H 
2000 FORMAT (20010) ) 

3000 FORMAT (•> (20nFft.1) ) 

4000 FORMAT(» 0 *** KND OP »ItF FOUND NHILF ATTEMP*^lNn Tn RPAD •••, 


o 



onoon nooo n non ooono ♦♦♦♦♦ no 
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2 A 9 , ••• RECORD *,n) 


* 4 i«** 4 i 4 > 4 i**«* 4 i 4 i« 4 i* ^t*******^^^^**************** ************** ******** 

* 

I. OR IN 3 ♦ 

* 

***************** ***********************^^********^^^*i^r^,*^i*^,i^*1^^^,^,*:^i,m*** 

SOPPOOTINE I.0NTN1 (DATA, TQATA, ♦, *) 

READ LflNAP DATA '^APR 

TAPE DATA ARRAYS 

REAL*tt DATA(I) 

IKTF3FP*4 lOATA(l) 

CIIARAC'^ER DATA 

RRALYR TYPEini) / »LABDL », ‘BODE •tfhpfpAT», 

. *TRAHS«TT«, »CAtIBRAT», * 1 BH7.. », 

. • 2 flHZ. ' , * ** HH2. * R RHZ. •, 

, *16 MHZ. », «32 BH7., * / 


RKAL*ft TYPF?(fi) 


/ * 

•TON 


•«PF 

•, •RANOR 


», 'TEP OFT- *, 

*, *V, r. O. • 


RPAI.*P RON, SITE, DIRECT, FORRFV, TTTI.r(ll), TYIF(2) 


INDTCFF TO TYPE ARRAYS 

TNTKOER*2 TTDX(3,17) / 1, 1, 1, 

ft 0 4 , 3 , 

fi, 6 , f., 

2 , fi. 

24, q, 6, 

13 , 11 , 5 , 


1 , 2 , 
f>, S, 
1, 7, 

12, H, 
R, 10, 
78, 11, 


1 , ’ 
1 , < 

(., 7 

4 , ••» 

4 M, 10 


LO(?tCAl*4 FIRST, LAST 


TYPE CODE PETOPNPD 


O 



n n n n n n n n n n n n n nnnnnnnn n n n 


INTFGFF*2 TTYP’7(2) 


Apollo 17 si*P 


110 


COMtIOM BLOCK FOR PF'^'flRSKD DATA 

rOHWOll /triBDAT/ TTTLR, RHH, STTF, DirPCT, Fni ni'V, T'YPL, 
TTYP>?, N, FIRST, I AST 


RECOPD CORRTFPS 

INTEGFR*4 I DLK /17/, I»RC /7fl/ 
BFGTN rXi^CRTARLF CODS 
RESET RECOar CO^HTFR 


PI»S”’*.FALSK. 

IREC * IRFC ♦ 1 

IPCTPEC ,LP. TIDX(1,I«t.K) ) 

, fiO TO 10 

ELSE 

TREC - 1 
FIPSTr.TRHF. 

IBLK = TBLK ♦ 1 
IFfTTDX n,IBl.Kl .EO. *>) 

. IBLK = TBLK ♦ 1 

IFn»LK .OT. 17) 

. IBLK = 1 

TTYPFCD » TinX(2, IBLK) 

ITYPF(2) = T1DX(3, IBIK) 

TYRE(1) » TYPP1 (ITYPR(D) 

TYPK(2) = TYPB2{ITYPE(2)) 

SELECT APPROPRIATE RECORD TYPE 

10 IFftCLK - ?.) 100, 200, 300 

HEADER RECORD 

100 REAnC2, 1000,FND«990) (tDATA(T), I»1, 207) 

00 TO 977 

NODE RECORD 

200 RBAD(2,2000,END»99S) (tDATMI) , T»1, '«) 

00 TO 999 

AU OTHER TYPES 



polio 1"^ SF'’ 



- Ill 


3H0 PEAn(2, lOO'^, FNn*?9*i) f PATA(T), T*1, »!) 

GO '^O 
C 

C RND OF FtT,P CONPITIOWS 

C 

C PPFDIC*PAntF 

C ( LAPKL PFCOnn EXPFC'^RD 1 

C ( => BEGINNING OF A MRK PUN ) 

C 

990 PFTtlPK 1 
C 

C DNRXPFCTFn 

C ( NOM-I.ABRT. RECORD EXPSCTwr. ) 

C ( e> WTDDLK OP A PUN ) 

C 

99S WRTTF(fi, ttOOO) TYPE, TREC 
RFT»»FN 2 

c 

r RpE-riRK 

c 

T.AFT=.fai.se. 

TFfTprr ,Rp, TTny(1,Tnr.K>) LAS'»’ * .thrr, 

RKT»»PN 

c 

c 

loor FORHAT(27(11 A4)l 
?onO FOFHATCS (20016) ) 

3000 P0P!1AT(6 (2 00F6.1) ) 

4000 POFHATCO*** END OP PTT.E POPNO HHII.P ArTEHPTIN'i T') •*», 

. 2A8, RECORD »,13) 

C 

C 

BNP 


0 ** 000 * ******** * 0*0 00 * 0**00 1 l ***** 0 ** t ^ i 0 **** 0**0 0 * 00 * **** 0 ** 0*00000000 
* ♦ 

♦ OnCINT • 

♦ ♦ 
000000000000000000 0000000000000000000000000000000000000000000000000^0000 


FUNCTION one I NT (T) 

C 

LOGICAL*! FIRS'’’ / .TRUE. / 
REAL*4 *»’1HE(S00), ODC(SOO) 
C 
C 


G 




n ^ no on 


Apollo 17 SKP 


TP(.M(JT. PTPST) GO TO I'lO 
’=‘TP5T = ,?HL57. 

K = 0 

?n RPAD('’., 1000, END = 30) TT, OHF, Ol ^ 

N = N ♦ 1 
'^TOP(N) - '^T 

one (K) = O.s ♦ (OPF ♦ OLR) 

GO ?0 20 
C 

< Nt. = V / *» 

'3) .NE. 0) NN * HN ♦ 1 
P(. «i0 1 = 1, NM 

T. -KOOd - 1, ^0) ,F0. 0) WPITK(6, 2000) 

.7,7 . 4 ♦ ♦ I 

IFfJJ .GT. N) .1.1 = .1.1 - NM 

WFITE(b. 1000) (TTMRfTI), ODC(IT), TT T, .1.1, NM) 
00 COHTTHOF 

tfPlTT:(6, 4000) 

C 

IOC TF(T ,LF. TIMF(D) GO ?0 100 
ir{T ,GF. TTflPlN)) GO -^0 4p0 
no 200 T * 2, N 

IPC^ ,GR. TIHE(T)) GO TO 200 

one IN? » one (I - i) ♦ (odc{I) - oncd - i)) 

, 0 (T - TIK'MI - 1) ) 

. / (Tir.P (T) - TTHFCT - 1) ) 

GO TO *>00 
200 COHTT^OF 


500 OOC7NT s oncd) 
00 TO 500 


400 ODCIST * ODC(H) 


500 PFTtiRN 
C 
C 

1000 FORD AT (5?1 0.0) 

2000 PORRATC* iHAVtGATIOW DATA • / *0*, ^T, »TTFF OD. CNT . 

, 4f14X, 'TI«F OD. CRT.') / *0 ») 

5000 FORHAT(U, 2F10. 1» 2F1P.1)) 

4000 FOPHATC- *) 

C 

RNO 


Apollo 17 5^FT* - 113 


* ♦ 

♦ PLIH/'T ♦ 

♦ ♦ 
********4'***4>*4'****<M>0 •««■»♦ ******* «**«*♦ ♦4t «**«*«• ***41*41 

SUnnofJTTNR PITHTT(»A«E) 

C PT.OTTEB TNTTTALI7.ATTOH AMD SPT«P 

FFA1.*4 NA«E(4) ,l!ITT/» ..1CF V 

LoaiCAL 7IP/.TRDE./ 

RRAt*P CODE/* »GS 1410*/# I^THP (5) /^.** »/»ntANK/» »/ 

DATA LIMIT, PLTLPN,PAG»ID/90, 20,, 11. / 

NAKPLIST /PL'^in/ TKTT,rODE,‘5?TnP,LIMIT,PLT7.’"N,PAf;wiD,7ir 

NAMPLTS"* /PLECno/ T IHIT, PITLFN,PAGWID,7.IP 

COHHON /PLTrOH/TT,T.,TT,IL 

IT=12 

LSHT=0 

•JRADf^.PLTTD) 

NAHR(4)*I»!IT 

IP(SETnpn) .nR.DLANK) LSPT*40 

I7IP=-1R22 

TP (Zin I2IP=-IZIP 

CALL nf-SPr (LIMIT, SFTOP,LSET) 

CALL PLOTS? |NAHE,16,CODB,T2TP) 

VIRITr: C#^,PLPCHO) 

CALL PLTPAG(»»AG«in) 

CALL PLTXMX(PLTLEN) 

RRT»»RH 

RHP 

SPRpnUTTNM SYMBOL (Y, Y,Z, IBCP, ANaLR,N) 

C,.***»* NOTE ♦*•**. .USE THIS SUPROfli’TNR ORLY TN PWODIKTIOK; PPMOV** PCR 
CALI. SYMBOL (X,Y,Z,TBCP, ANGLE, N) 

REniRN 

END 

************************************************************** ********** 
♦ « 

• RTPLC^- 4 

♦ • 
************************************************************************ 

SOPFOUTTNM RTPLO"* 


RRAL*4 SBOOBR), STOOUH), VR (2S6*i) , VTC2'><^‘>) 
COHNON / BLOCK / SR, ST, VB, YT, SCALP 


O 


fk 


onn r>non non non onnn 
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IWITIALT7E TUP PtCTITfl SOPTWARP ARD LOCAl. VAPTAPLKS. 
(TS IS PPatllSED lATER, POP OPAilTlir, THP TTPF AXIS.) 

CALL PUHIT(»OQGP.BA»GFS. *) 

SC»1. / SCALE 

TORG » ATMTfAHAXi (ST nORR) , VT(2565)) * SC) ♦ 1. 

T •= AHIT(AHTR1(ST(1) , PT(1)) • SC) 

TS » T 

OPAW THE RASGE AXIS. 

CALI PI.OTCO,, TOB6 - T. \) 

P » AlHT(AHAXl(SR(30Rfl) , ¥R(2565)) ♦ SC) ♦ 1. 

CALI STRBOMH, torr - T# .07, 6, -90., -2) 

R » IPiy(P) - 1 
X * P 


AMD T.AHPL IT. 

DO 20 I * 1, R 
X * X - 1. 

CALL SYMBOL(X, TORG - T, .07, 13, 0., -1) 

CALL RDfiBPRfX - ,1«, TORG - T ♦ .07, ,07, X ♦ SCALE, 0 ., -1) 

20 CORTIROP 

CALL SYRBOL(R * .6, TORG - T ♦ .2, .14, »RARGB (HETnPS) * , 0,, 14) 

lOERTIPY THE TWO PLOTS: SEP IS A SOLTI) LIRE; YLBI IS SOLID 
AHD HAPKKD BY A SYHBOL AT EVEBY 100»TH DOIRT 

CALL PLOT(R - 2., TORG - T - 2.4, 3) 

CALL PLOTCR - 2., TORG - T - 3.4, 2) 

CAIL SYPBOLfR - 2.07, TORG - T - 3.6, ,14, 'SEP*, -10., 3) 

CALL SYRDOLIR - 2.2, TORG - T - 2.4, ,03, 0, 0,, -1) 

CALL SYR0OL(R - 2,2, TORG - T - 2.9, .03, 0, 0., -2) 

CALL SYHBOL(R - 2,2, TORG - T - 3.4, .03, 0, 0,, -2) 

CALL SYPBOLIR - 2,27, TORG - T - 3,6, .14, *YLBI*, -90., 4) 

LABEL TUP TIRE AXIS. 

CALL SYHBOL(-.34, (TORG - T) • .B, .14, 'TIRE (SECORDS)*, -90., 14) 
R « IPYX(TORG - T) - 1 
no 40 T ■ t, R 
T T ♦ 1. 

CALL SYHBOLfO. , TORG - f, .07, 13, 90., -1) 

CALL Rf»HBER(-. 14, TORG - T ♦ .14, ,07, T * SCALE, -90., -1) 

40 COITIROE 
C 


o 
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C AND TRFN DPAW IT, 

C 

CALL ?17HPOL(0., TDPn - - 1,, ,07, fi, 180,, -1) 

CALI PLOTfO., TOPfi - T.-;, 2 ) 

C 

C NOVF TO THf: FTP*?? SEP POINT, ANC THEN DT'AW THE MNF. 

C 

CALL PT.OTfSPfl) * SC, TOP'? - ST (1) * SC, 1) 

DO fO T * 2, 10SH 

CALL PLOT (SR (I) * SC, TORO - ST|T) * SC, 7) 

60 CONTI HOP 
C 

C PLOT THE VLB! DATA WITH A STHPOL AT EVEPY 1P0»'^I! I'OINT. 

C 

CALI. SYNBOL(YR(1) * SC, TORO - VT(1) ♦ SC, .01, 0, 0., -1) 
no RO I = 2, 2S64 

Ipfnoofl, 100) ,PC, 1) 00 TO 7C 

CALL OLOT(V»(I) ♦ SC, TORO - VT (T) • SC, 7) 

00 TO 80 

70 CALL SYTPOLfVR (I) • SC, TORG - VT(I) ♦ SC, .03, 0, -?) 

BO CONTINUE 

CALL SYNPOMVR (2S6S) * sC, TORG - VT (2S6B) ♦ SC, .n, L, 0., -7) 

CALI PLOT NO 

f’ETOPK 

f!ND 




* SFPLOT 

* 

S»»DR0»»TTNF SRPL0TCTITLE,N0TFS,CPRR6,XSrA!.F,VSCALh,CCMr,H,T , vTN, 
* TNnFX,n,N1,LT1,K2,LT2, SITE, PUN, FRF0,RF.F,ABSPKF) 

c 

C PLOT OF CITHER THEORETICAL OR PXPERIHENTAL SEP DATA. 

C WRITTEN BY .1. J. PROCTOR, SPRING 1973. URTWFPSITY OF TOpnKTO, 
f 

C INPUT: 

C Tins ■ PLOT TITLE (16 DIGITS) 

C NOTES • APDITtONAl NOTES (32 DIGITS) 

C CPBRG » CURVES PER GRAPH (<* 6) 

C Y.SCALF « N"HBER OF TNOIES PEP 20.0 WL (6.1® IS STANDAFO) 

C YSCALE e NUSBER OF INCHES PEP CURVE FOR LINEAR PLOTS (< '’.) , 

C “DP PER INCH POR ON PLOTS (■> 6.) 

C COPF ■ rONPONENT LAPEL “ A 3- DIGIT INTBqpR; 


n!^nrj oooon'i on oon non 


O 




1»P, 2anj 

IsRIfO, ?*PHI, vrri); 

laBRCArsTDE, ?*EHl)KT!>P 



C 

C 

r 

r 

c 


FTP!^"^ nr^jiT 
'*^FC'OVr> niGTT 
THi'iD oian 

'1 * FIRI.n-STiTER^TH AFRAY 
P s TANGE ARRAY (TH HT.) 

NTN = ninENGION OP H AND R 

TRPFX * INDPtlNR THHonGH H AND P ARRAY?? 


f”‘?”ALI.Y *1) 


RFALYtt K 1»K2,LT1,LT2 
lNTYGPP*a 7TTLR(U) ,NOTRSCR) 

INTFGERR4 fONTAB f 7) /* E* , • H ' ,7 ,7.^. R, *FNr •/ 

INTFGRR*4 CTR/0/,nrTR/0/,CPPRG,rOHP 
LOGIC ALP4 DATOLD,CATNP.K 
OTNPN5TON I? (NTN) , R (NTN) 

TMTPGFR*4 LABFLGn) 

TNTEGER*4 PYAC?) / »RHO», 'PFT*, 'Ypn* / 


..ENI^Y POINT POR tIIFORY C«RV5S 

ENTRY TftEPLT l.F » NOTES , rPFPG , XSCAIF, YSCA 1.^' , ft , Is , »n M , I t.’RVX , 

* D,K 1,LT1,K .,IT2) 

DATNKW*. FALSE, 

GO TO 2 


..PHTRY POINT POR DATA TYPE CORYBP 

ENTRY DATPLHTITLE,N0TB5,CPPPC,XSCALE,YSCAlE,CnMp,N,f ,NIN,TNr ’=*y , 
* RITB,R»|1|,PHF0.REP»ADSBFF) 

DATNFN».TR«»'. 


2 CTR-CTRtI 

,TP THIS IS THE FIRST CORYF ON T'»P GRAPH, PtOR* GPAI'll OMTI.IN’ 
IP(CTP.EO.I) GO TO 10 

.TPST POR A POLL GRAPH 

lP(rTP,I.E,C?RRO) CO TO 70 

• PlttL-GBAPH LOGIC 
CTB-1 

CALL l'lOR'CXXXY4.20,0,,-3) 

.GPAPH OOOilNE 
10 0CTP»nCTR4l 

.SET RANGP AND PTPID STRENGT'1 ALi^AT DTHPNSION ON IKnKN POUNDARY 


o 


4 
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!«• nWIM-1) /INDKr) *TNr>EX*1 
}*FIB‘5t*N 
C 

C..COSVEPT I-AXIS '5CAI.F TO IMOHBS-PFP-WAVEtESGTn 
C IMCnFS-PFR-UP’TRv 

TSCALD = 7SCALF / 2^1. 

I^CXSCAT.B 10.)XSCALr> * 7SCAT p / 1000. 

c 

c. .DT0TA»rE DFTWFF*1 4 Wl SFOnFNTS 
XSPACP»tt.*X0CALD 

IPCX-^CAIF lO.IXSPACF = 200. • XSCAL»> 

C 

C..IH)0HD DOmi FIRST PA HOE POTKT TO DKTFRMIFF G*?ArF OF I'll N 
C 

OF 4 WL TR TffB P AiOF FAtOFS 

IFCXSCAIB .LT. 10.) F»1.1!T» (1 FJX CF <N) ) -IPT^’T) /4* 1 
IF(XSrAT.K .0*!, 10.) !IO»1R*(IFTX|P,‘F))-TRT‘:T)/7nr4l 
C 

C. .T.AST SFOFFFT KHFP17 ♦OFF 
n \ST»W»»HR*1 
c 

C..HAlFMEr POINT IN T!IE N’lflPFF OF rBONFNTS 
THUF*It.AS?/.? 

r 

C,,CO-ORnTN»Tt OF I- AX IS lABFL 
XtABgL»2FN»1'*1PFXSrAT,0-,S 

1FCXSCAI.F .0'^. 10) XT.AOBL » 100 ♦ HUFF ♦ y^^ALO - . • 

C 

C..CO-OFDINATF OF GRAPH TITtB 

XTTTLF»AFAX1 <.S,XlAPBt-1. 1) 

C 

C..ORAH T-AXIS 

CALI ftHDOU0.,10,,.1,A,0,,-2) 

C 

C..TITI.F CPAPn AND PLOT ANY NOTES (EXPLANATION, F^C) 

CALL N"FBBfHXTITLF,10,,. 1S,FPFQ,0,,1) 

CALI. SYBBOL(4 ’R.,'»99.,.1'V,SR HUE. ,0.,S) 

CALL RYNP0L(9RS, ,904* ,, 1S,1IIP APOLLO 17,0. ,1*») 

CALI. StPBOL(XTfTLE,9.»,.07,NOTBS,0,,12) 

**..SW •XXX* XABlABt? HHICH IS PIGPTPOST POSl'^ION OP X-AXTS 3K0F5N*S 
XXX«NlfHP*XSPACE 
C 

C..OBIW X-AXTS (HACKKARDS) 

FAX'XXXfXSPACB 

CALL fF«OOL(tAX,0. ,. 1,0,270. ,-1) 

00 T» 1,11. AST 



o o n n n n n o r> n 
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XAV=XAy-XS»ACF 

1*i CALI. JYf«BOI.(XAX,0. ,.0'‘',n,0.,-2) 

C 

C. ,^’^^’PFR '•'IRST HALF OF X-AXIS 
DNOF = IPIST-l.'> 

TF(XSCALB .OF. 10.) DRUM = -lOO.O 

Xljnjis-xSPACE-.O'i 

no 3h I=1,I!!ALP 

TP(XSCALE .LT. 10.) nNOH * 0!«»!H ♦ U. 

TFCXSCALP. .(IF. 10.) DNOH = DNUB ♦ 200. 

XN»”^-XS«fl^XSPACP 

ih CALL KtJPP^PfXNOB,-. 1S,.07,DNf»B,0.,-1) 

..LAPOL X-AXIS 

CALL SYPSOLIXLAOPl,-. 1 ,f>HPANC.E ,0.,ft) 

T^fvsrALP .C.E. 10.) CALL S YUPOL (OPO. , ono. ^ .1, ^(tp. , (], , } 

IFfXSCAI.E .LT. 10.) CALL J: YSPOL (09-1. , 000 . , . 1 4, 4 1 , r . , _ ) ) 

..NUfir.FF SfCOND HAL? OF X-AXTS 
DO 07 I=THALP,ND1P 

IFCXSCM.K .LT. 10.) DNOM * OVUM ♦ 4. 

TF(XSCALE .OS'. 10.) DNOW = ONOH ♦ 200. 

XSni*sXN»»f1*X5PACB 

37 CALL NnPRPR(XNnH,-.1S,.07,DH»’H,0.,-1) 

..LARFL Y-AXIS 

TPfYSCALE.GT.S.) 00 TO 3R 

CALL SYMPOU-. 1S,4.5,.1,6HLIPPAP,90.,fi) 

no TO 39 

38 CALL NUnDERf-.lS^a.R^.I.YSCAlPrOO.^-l) 

CALL SY?IB0L(999. ,999.,. 1,3H PB,90.,3) 

CALI. SYBBOL(-. 1, 4. ?‘5, .08, 1 3,90. ,-1) 

CALL SYBBOLf-. 1, 4 .27, .04 , fi, 190. ,- 1) 

CALL STBBOLf-. 1, *j.23,.04,6,0. ,- 2 ) . 

CALL SYBB0L1-. 1 , S . 2*i, . Ofi , 1 3 ,90 . ,- 1) 

CALL SYBBOL(-. 1'3,8.0,.1,7HRRF. AT,90.,7) 

CALI. NnBBRR(-. IS , 6. 8, . 1 , A 8SRFP,90. , 1) 

CAM SYBB0L(999. ,999,,.1,4H DPB,‘*0.,4) 

..FND OP GRAPH VARIABLE SRT-UPS 

39 DATOLD*.NOT.OATREW 
CPPPG*BTN0(6,CPERG) 

SHTPT*8./(CPBRG-1.) 

0RIQ1R*6.4SHIP7 

GO TO 71 


..ENTRY POINT FOR PLOTTING A CORVf 


?s 
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70 Nt ( (VIN-1) /I'JDKXI *INI)EX»1 
NPIPST'N 
C 

C..SFT THF rPTGIH POR THIS Cf-’>VE 
71 OPIGTN»OSIRTN-SHTPT 
TCl='V+POO(Cn«lP, 10) 

TC2=2#HOn (COHP/10,10) 

TCl*COf!P/100 
LAPFLS(I) = COHTAB(ICI) 

UnPiS(?) = HXA(IC2 - 2) 

LAPELS H) = COMTAE(TC3) 

WRITE (6, sJOO'iO) FREC, LABELS 
SCOSO FOHHATf'OPLOTTlNG •, F6.1, IT, A2# 2A4) • 

C 

C. .Finn HAYTFIIH AHO MTNTHtlH PTELH FTRENOTH VALOFS 
¥HAX=HC1) 

YMTW=YWAX 

no «7 T=1,N,IHDRX 

¥MTR=AFTH1 (H (I) ,YFTH) 

P7 YHAX=AHAX1 (H Cl) ,YBAX) 

C 

C. .TFST POP LINEAR PLOTS 

IP(YSCALP,LT.5.) GO TO 700 
C 

C..rONYPRT DP VALUES TO INCURS AND 7RPO LOW VALUES 
no OH 1*1, N, INDEX 
OR F»(I) * I! (I) / YSCAI.P 

GO TO no 

c 

C. .CONVERT LINEAR VALUPS TO INCHES 

700 finEL'PA*YSCALE/YMAX 
DO 701 I=1,N,INDPX 

701 fMT)*H(I)*HOEL'rA 

r 

C..PLOT THE CURVW 

CALI PLOTC-.OS, HEP / YSCALE ♦ ORIGIN, 3) 

CALL PLOTC .OS, RFP / YSCALE ♦ ORIGIN, 2) 

CALL PLCT(CRC1)-IBTST)*XSCALP, H(1) ♦ORIGIN, 3) 

NST*UINDEX 

no PnO I«NST,N, INDEX 

HOO CALL PtCTCfR(T) -TRIST)FXSCAID, HCl)fORTGTN, 2) 

C 

C. .IF FIRST CORVE OS GRAPH, PLOT ♦COPP* AND ♦HAX* HEADINGS 
TYNO*fi(N) ♦ORIGIN 
YYHD«YYNO^, IS 

TF(CTR.EO.I) CALL SYFinOL CXXX^ .0 3 S, YYUD,. 07 O, RHCOMP, 0 . , U) 
C 

C..PLOT CON PON ENT AND HAXtPUN 
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CHIL SYf'nOL(<XX*.0 J*i,YT»JO,.070,CO»1TAB(ICl) 1) 

CALL $YMP(1I.('MP, , )«0. 070, 47,0.,- 1) 

CALL $y>^n.7L( ^07. , 999. , .O70,COMTAB (TC2) ,0.,-1) 

CALL fYMB0L(999. ,999. ,.070, 46,0., -1) 

CALLSYMOOLfO 99., 999., .07O,COiTAB(IC3) ,0. , 9) 

C 

C 

C. .CUPVF LAREtLI?IO TESTS FOLLOW 
IP (DATNPW) 00 TO 40 
C 

C. .TH?:ORY COPVE 

TP (. KOT. DATOLD) 00 -^O 41 
C 

C. .THPOBY HFAHTUGS 

CALL SypBOL(XrX«-1.019,YVHD,.07,.1?HT)EPTH F1 1 .T 1 f'? !T? 

♦,0. ,32) 

C 

C.. THEORY VAPIA3LPS 

41 CALL FOMBEP(XXX* 1.01S,YYIIO, .070,0 ,0.,3) 

CALL NnHnPR(XXX*1.S0S,YYMO,.070,Xl ,0.,2) 

CALI NT1HPEP (XXX* 1.9 2S,YYNO,.070,LT1,0. ,4) 

CALL Rf'MBEB (XXX*2.5SS,YYM0, .070,K2 »0.,2) 

CALI NnBBPn(XXX*2.97S,YYMO,.070,LT2,0. ,3) 

C 

40 CO-vTINUP 
999 DA'^OLP'DATNEW 
PETOBM 

ENTFY BASPL(H, P, NTV) 

DO 90100 1=1, NIN 

CALL SYHBOL( (B(n -TRTST) *XSCA,LD, H (I) /YSC ALP *01: 10 1 N, . C7, 1 1, 0. , - 1 ) 
90100 CONTTNflF 

B PT” 9 F 
PND 


« * 

♦ STOPT • 

♦ . * 

«• **«*«*« ***#****«4i**t4i«4i4>*4>*««***#**«4t «<»*<» «***«* «****4i*F** 

LOGTCAL PPMCTIO!! STOPT* 1 (I, IPP) 

C 

C PBTORNS .TPf*B. IP THF IRY WAS STOPPED D»»I>IKn TH* UP-4 

C TURN, .PAISB. OTHBRWISR. (THIS DPCTSION TS BASFD OP THP 

C YAL"PS PIACPD IN THE ARRAY •»»« DY TBK CALLING H!)»"^INr.) 

C 
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MU’) 




r f.) 

/ .n, n 

. 20, 

ro^'MoK 

p 


.1 = 13 * 

r * C(TPP) 


<^XO -'T = ( 



B(2) 

• 

, ANn. 

.7 .IT. 

M(3) ) 

. .sOP. ( 


s7 .GT. 

nc4) 

• 

.AND, 

J .LT. 

T’T'^) ) 

PFT”^ N 




FND 






***************** ********************* **^**'*****iH, ****** ’if 


r 

r 

C TO rOMT*!\RK '»’P UNSMTTT '^P-orP hatA 

C KTT‘? APPnoXlHATR LRV SPFEn. 

r 

r ONP tkpHT card T5> PFO'JIRPD, C0N‘’’ATNIMG '?TX rNTl':*'K vutl'^' Us’ 

POP*!AT fT'i; THK^K VAT.'IR*; snO»»LD HP THE PA»'F A51 T!»F « Hof's' " Ul ' 
c ?f!P 12.1 T^iPUT TO AVTFrFAO, 

r 
c 

RFAI>U 5?PT(n, 1Nn(3), SSTROH), PHOSOC^) 

PPAL’^U PANP.F(140, f>) , SFRUDdUO, f>) , TXOFPfUO, h, n 
PKAL^U TXOPSflttO, 6, M , SHOPS (3), SSTFS (3) 

PFALP4 SS"‘FST(3), SMOPS;)(3) 

TNTFOPTU4 NTXnFF(f', 3), NR(3), TKDKXCiaO) 

TN’T»'GFP*2 PO^'WDffi) 

I.OGTCAI.’M S^nPT 
!0«ICA1,*1 SlUTCH 
C 

COHHON /PO'INRS/ BO”Nf> 

C 

C 

CAT, I. PI.nTSTC'OOOP.OCR.'^XOFP •* 16, »FGS1«l10 ♦) 

C 

nFAD(3) 





9 


% 
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r»-:ad(3) 

RKAn(.3) 

aKAP(3) TXOF’=‘, NTXORP 
RFAD(3) EANaS, NR 
RPRDf3) SPBKD 
PKAD(5, 7000) BOnSD 

loop THPOnOH PRRC>*’I1*CIFS 

DO 100 TPR » 1, 6 

IPBI’O = 2 (IPR > 1) 

1*0 
\ * 0 

SWITCH * .FALSE. 

VST = 0 
NNO s 0 
DO •) J = 1, 3 
SST(J) s 0, 

SMO(J) = 0. 

SnOFS(J) = 0. 

SSTFSM) = 0. 

SSTSOM) = 0. 
sm)S0(.i) = 0, 

SSTPSOCJ) = 0, 

SPOFSQ(J) = 0, 

S COMTIH«E 

10 WFITBC6, 10O0) IFPBC 
ITM * 0 

20 I a I ♦ 1 

TPCFANGBCI, IFR) .GT. 1667.) GO TO *30 

H a ♦ 1 

IP(RANGB(I, I«M) .KO. “ill.® .AND. .NOT. RTOPT(T, lf>P)) GO TO ?0 
DO 23 .1 * 1, 3 

TXOFSCI, J) a 10. ** (.0** * TXOPFd, IPP, .1)) 

23 CONTINUE 

LIN ■« LIN ♦ 1 

WPITE(6, 2000) PANCBd, IPR), SPFFDd, TPP) , 

. (TXOPPd, TPR, J), J a 1, 3), 

. (TXOFSCI, IPR, J), J * 1, 3) 

IP(S» -.EDd, TPR) .BO. 0.) 00 TO 30 
NPO ■ NNO ♦ 1 
f^-0 25 J » 1, 3 

S«0(J) a SRO(J) ♦ TXOPPd, IPP, .1) 

SHOPS (J) a SHOPS (.)) ♦ TXOPSd, IPR, .1) 

25 CONTINOB 
GO TO 40 

30 NST * NST ♦ 1 
DO 35 J » 1, 3 


o 



n n 
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^ ♦ l’Y;)PP(I, TPP, .11 

'.r.TPS(.11 ISTFfIf.T) ♦ TXOi»fi(T, IFR, .1) 

Vy CONTINin 

40 TF(T.n» .!,T. GO Tf) 20 

i;0 *^0 10 


C 

(' 

C 

c 

c 

r 

c 

r 


so 


po 


70 


72 


7S 


77 


DO A SOFT CN T’H*' APPPOPRTATP SFGMFMT OF ?MP HPr: 0 A'’I’AY. 
SnRnO»»TTNH FOBSL^'I PPTOFNS THE VFCTOp TN'IJ^X fO^FAlMTK’C 
TNDTCF5 TO THE OATA ARRAYS SUCH THA*^ 1 F' T < .J, '^'HTN 
SPEFO (lYDEK (I) , IPP) < SPFEI> (I NOBX f.1 1 , TI V) 

CAI.T, HOMBLE(SrPFnn, I’^’R) , INOEX, N) 

T Yct «>H 5 S'^FEr VAT”FS TN A'^CERDINO OFfl'T WITH THE roF»- ;-:SFO'- niFO 
T.KO^F VAUtEF POP FAOH ANTENNA. 


X.TN = 0 
T)o f,0 .1 = 
SFO(J) - 

SRTf.l) - 

SFOF 5 (J) 

SSTPS (J) 
CONTINUE 


1 . ^ 

SdO (.1) / NNO 

SST(.I) / NF>T 
= SMOFSC.1) / NNO 
= SSTPFfJ) / NST 


no 80 T = 1 , N 

TF(ITN ,E 0 . 0 ) WRITS( 6 , 1010 ) TFPFO 
IX = TNUEXd) 

TP<r«AfiGE (IX, IFF) ,NE. 511. « .OP. STOPT(IX, TFK)) 
SPPEDdX, TFR) = -1 , 

GO TO 00 

TFCSWITCll .OF. FPEKDdX, IPR) .FO. 0.) rO TO 7S 
on 72 J = 1, .1 

SSTS0(*1) * SOFT (SSTSQ(J) / (NST* - 1)) 
sr.Tpso(.T) *• sorT(ssTPsc(J) / (net - in 
conttnuf: 


WFITR(6, UOOO) NST, 8ST, SSTPS, SSTEO, SST»'‘'0 
LTN » LTN ♦ S 
SVITCI1 * .TFUF. 

CONTTNUF 
no 70 J a 1, 1 

IF (SWITCH) 00 TO 77 

A * TXOPP(TX, tPP, J) • SST(J) 

B « TXOPSdX, TFR, J) - SS'"FR (J) 

SSTS0(.1) * SSTSO(J) ♦ A * A 
SSTPS0(.1) * SSTPSO(J) ♦ P ♦ F 
GO TO 79 

A * TXOPFdX, TFR, .1) - SMO(J) 

B • TXOFSdX, IPR, J) - SWOPS (.1) 

SHOS0(‘T) • S11OS0(*H ♦ A * A 


on E O 70 


on o n o o o 
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1^4 


SHOT'S^; (J) = f?*^OP!iO(J) ♦ n ♦ B 
77 CONTTMHS 

wrTTF(*s, 2010) spF’^ndx, Tpr) , 

. (TXV^FdX, IFF, J) , J » 1, n, 

. rXiFFdX, TFP, J) , J - 1, 1) 

LIN * HODCLTN 4 1, *^,0) 

PO CONTIN’tN 

DO P«5 J = 1, ^ 

~FOBC(J) = ‘'.OPTfSMOSO (J) / (NMO - 1)) 
SMOFSOM) * S0P7<S1OFSQCJ) / (NHO - 1)) 

PS CONTrN”F 

WFTTFC6, 4010) N«0, SMO, S'»OPS, SHOSO, SPOPSC 


PLOT TTOFF VS. S^PEn 

CALT TXPLOTCSPPFDd , TFR) , TXOFP(1, TPP, 1), '^‘XnFP(1, TFT, 2), 

TXOFFd, IFF, 7), N, IFPP') ) 


mo CONTTNl’P 

CALL PLOTND 
PETORN 


10D0 POBHATC 1*,IU,» PH7. — T.R? SPEED AND TXOPP nA*RA OPDEPED PY FANCF» 
. / 4SX, *TXOFF DB», 25X, ‘TXaPF FIELD STRENGTH* / 

. 6X, »BAN6E*, 10X, *SPFED*, 12X, 2( *X*, 11X, 'Y*, 11X, 

. *7*, 14X) / 2X ) 

1010 POPNATdl’# 14, • HP7. — TXOFF DATA ORDPPFD BY LPV SPE; 0* / 

. 47X, *TXOFF DB», 25X, »TXOFP FIELD STRENGTH* / 

. ?4X, *SPFED», 12X. 2(*X*. 11X, *Y*, 11X, *7.', 14X ) / 2X ) 

2000 POBHATdX, FlO.l, 5X, P10.4, ^X, 3(2X, F10.1), 3X, d2X, 1PP10.3)) 
?0m F0RHATC19X, F10.4, 3X, 3(2X, P10. 1) , 3X, 3(2X, IPFIO.3)) 

3000 FOPMA‘”(ftI'7) 


40 DO FORFAT(*0*, 

. 6T, 

. 6X, 

. 3X, 

4010 POP'*AT(*f*, 

. 6X, 

. fix, 

. 3X, 


14, * RECORDS WITH LRV STOPPED* / 

•MEAN VAL»«BS», 15X, 1M2X, F10.2), 3X, 3(2X, 1IP1(,3) / 
*STANDAFD DRVTATIOMS* , 7X, 3(2X, OP®10.!>) , 

1|2X, 1PB10.3) / 2X ) 

T4, * RECORDS WITH LRV ROVING * / 

•HEAN VALD7S*, mX, 3f2X, FIO. 2) , IX, 3{2X, IPFIO.3) / 
•STANDARD DEVIATIONS*, 7X, 3(?X, OPPIO.S), 

1(2X, 1PE10.3) ) 


C 


END 


o 


non n n n n n n n n 


A poll o 17 


******************************************* ************** 
* * 

* TVPl.OT ♦ 

♦ ♦ 
****************** ********************************************** t*t***** 

f^IippOOTIME TXTLnTfS, TXX, TXY, TX7,, N, TFP) 

C 

PFAI>4 S<N), TXXfNI, TXY (N) , 

PFAL*to TXOpr. (I) / 0., 1., 6. / 

PEAI.*4 SCALP 

SCALP (APO) = .1 ♦ ifAPa ♦ 11’i.) 

C 

DRAVf TP*" SPVPD AXPS 

X = ft. 

no ft T » 1, 1 

CALL PL0T(0., TXO»f;(r), 1) 

CALL SYPPOMX, TXnnr.(T) , .n?, ft, -40., ~?) 
ft CON*^TN«P 

AND lABPL THPi 

DO 10 T * 1, ft 
X * X - 1. 
no 0 J a 1 , ^ 

CALI SYNftOL(X, TXOP3CJ), .07, 13, 0., -1) 

R CONTTNIIR 

CALL NOPBRH(X - .10ft, -.2, .07, X, 0., 1) 

10 COMTimif 

CALL SYNPOLd.ft, -.5, .14, 22HLPV SPEED («. / SFC.) , 0., 22) 

DRAM THK CB AXES 

no in j * 1, 3 

CALL PLOT(0,, TXORO(J), 3) 

CILI. RYNBOMO., TXORO(J) ♦ 2. ft, .07, ft, 0., -2) 

AND IXREL THBB 
no 20 1 ■ 1, 3 

CALL SYBBOLfO,, TXORG(.I) ♦ 3 - 1, .07, 11, ftO. , -1) 

CALI N»»NDPR(-.n, TXOBG(J> ♦ 2.74 . j, ,07, -10ft, - IP. • T, 

. 90., 1) 

20 CONTTMUR 
30 CONTIBnR 



ono non nno 


Apollo 17 srp 


126 


o 

CALL SYHB0L(-.16, 3., .14, 27HTPANSHITTEP-OFP (DRM.) , ?2) 

LABEL THE GPAPH 

CALL Hn«BBP(3., 9.16, .14, FIOAT(IPB), 0., -1) 

CALL SYWBOL(999. , 494., .14, 1BII HHZ. APOLLO 17, 0., 18) 

PLOT THE DATA POINTS 

no 40 I * 1, N 

IP{S(T) .LT. 0.) 60 TO 40 

CALL SYBB0L(S(T), SCALE (TXT (1)) ♦ 6., .07, 4, 0 ., -1) 

CALI. SYBBOLCSdl, SCALE (TXT (I) ) ♦ 3., .07, 4, 0., -1) 

CALL SYHBOL(S(T), SCALE(TXZm) , .07, », 0., -1) 

40 C04TIN9E 


HOVF ON TO BEGIN A POSSIBLE NB« PLOT 


C 

C 


CALL PLOT (9. 5, 0., -3) 

PET”^N 

END 


**««]»****«*4>«**«**4i4>4i4i«:*#**«««<l'**4>*****4>**«>«>4i*4>*4'*4>4>*«« <>*«*«** «********« 
* * 

♦ VLPTPT • 

♦ * 

C 

C PROGRAE TO COFPAHE VLBt DATA WITH SEP NAVinATIOE DATA. VLBT DATA 

C HAY BR EITHER UTOH- OR LOW-SPEED; SLP DATA APE OBTAINED WPOB TIT 

C 16 HP2. RANGE ARRAY ON PILE FCI2, AND CORPESPOKDTNG TTEKS APF 

C GENPRA'fFD TNTPRNALLV, 

C 

C ONE NAHPLIST ICNTt) CONTROL CARD IS REQOinEO: 

C 

C TO - TIHE (UH) OE FIRST 16 HHZ. RANGE POINT. 

C RO - DISTANCE OF FIRST 16 HB7. RANGE POTNT PROM 

C SEP TBANSHTTTF.R. 

C STAT - (BOOLEAN) onTPO? COHPARISON STATISTICS. 

C PLOT - (BOOLEAN) PLOT RANGES FOR VLBI AND SEP VS. TINE. 

C SCALE - INDICATES M«HBBR OF HETRES AND 100-W AVEI.FNGTH TVTERVnS 

C PEP INCH OK THE PLOT; HOT RFOUIPPD TF PLOT * FALSE. 

C 




nnoo ^oo nno ono on 


Apollo 17 5?p 


1>>7 


ALSO A PLTin NAMFIIS-^* CA^D TF RRQniPED BY PUHTT (TF P!.o 

TNTEdEB^a n, «, s 
»?BAI,*4 X(S), Y(5) 

HEAl*4 SR(3PB3), BT(308B), Vf» (2*>6B) , VTIPBBB) 

PHAL*U TO / 14B2. /, RO / 0. / 

I,OGTCAT.*1 STAT / ,TR»»E. /, PLOT / .FALSE. / 

COBFON / BLOCK /SR, ST, VP, VT, SCALE 
VAHFLIST / CNTL / TO , Rf), STAT, PLOT, SCALE 

SET ARD READ CONTROL PARANETFRS, AHf> SKIP OVER oh^ANTFO 

SCAL^ = BOO. ^ 

READ(B, CHTL) 
no 10 T = 1, 71 
HEAP(1, 1700) 

IP CONTIRP’' 

READ If. MM7,. RANGE PAT.1. 

K = 1 
L “ IPfi 

DO 30 I = 1 , R 

P’=!AD(1, 2000) <5RfJ), J = K, 1.) 

K » K ♦ 3B6 
L » L ♦ 38B 
20 CONTINPE 

ADJUST SKP RANGE AND 0-3 DATA OSTNG SUPPLIED PAPAHETERS 

DO 30 I = 1, 30Hfl 

ST(I) * .81 * (I - 1) ♦ TO 
SR (I) » SPfn ♦ PO 
30 CONTINUE 

REAP VLBT OA-'A IN GROUPS OF O.lp TIRE AKP FIVE X-Y PAIRS, 
TIRE TO RRCONDS ANP X-Y PAIRS TO RANGES, AND STORE. 

DO SO I • 1, 2S6S, S 

RRAP(4, 100) H, H, S, (X(J), Y(J) , J » 1, S) 

T « S ♦ 60 ♦ (R ♦ 60 • H) 

DO 40 .1 « 1, S 
II * J - 1 
.1J « I ♦ TI 
VTCJO) • T ♦ II 

VR(JJ) • SORTfXM) ♦ X(.T) ♦ YfJ) ♦ TM)) 

NO CONTINUE 
SO CONTINUE 


rr _ n-ptip^ ^ 


DATA. 


CONVEP'^ 


*■ 



-6— =- 


•arfiS-vFW^ x>-.v 





Apollo 17 S^’P - 12^1 



C 


C 

C 

r 


r 


c 

c 

c 

c 

c 

r 


c 

c 

r 

c 

c 


c 

c 

c 


IP (PLOT) CALI. RTPIOT 
TF(.NPT. STAT’) no T-n 00 
. 70 T =■ 1 


SKIP ALL VLia TTMFS HMTCH A?F LESS '^HAM -^Hr PTRST SFP TT '•K. 
no ftO ,1 = 1, 2SPS 

T’"(VT( 0 ) .OF. ST( 1 )) no TO f.S 
JST = J.ST ♦ 1 
<)0 CONTIKIIF 


f.S 1.1 K = 0 

E * 0. 

S = 0. 

T ^ 1 


For FACn VI.FT ■"IHE-FANC.B PAT” 

DO 00 J = 1 , 256 S 

PTMf> "HE PAIR OF SPP T 7 EES WHICH BRACKET TIP VL«T TIE'. 


1)0 70 K = T, 7088 

IF(VT(J) .IT. STfK)) 00 TO 80 
70 CONTI vne 
GO -^o 7 S 
80 1 = K 

II * T - 1 


COHr»’TB AN TNTRBPOr.ATED SEP RANGE, ANT> THE DIFFFRI NCK HFTWI FN’ 

IT AND THE VLBT RANGE, ANO INCPEHEN-p THE SUM OP ni f FF'- fKC KS ANf; 
THE S»'H OF SO” ARES CE DIEEPRPKCES. 


70 


R * SR (IT) ♦ (SR(T) - SR (IT)) * (Vf(J) 

/ (ST(I) 

D « VI? (J) - R 
F * F ♦ P 
R « S ♦ D * n 

IE(EOD(LTN, SO) .FO. 0 ) WRT'^PfS, ? 00 ) 
HRTTEI 6 , 700 ) VI (J), VR (J> , R, B 
UN * UN ♦ 1 
CONTTNPF 


ST (TI) ) 
STCIT) ) 


CONPWTF THE NEAN AND .STANOARP OBVIATION, 

85 P • P / LIN 

S • S0R*^(S / FLOAT (f IN - 1)) 




WHIT'* (ft. 


RFT"HK 


Anollo 17 r,r? - 1/’'^ 


mo format (3 (12, IX) , IX, l'3F'‘».0) 

?0r ?OPKAT(*1* / *-», 3?x, MMTEPPOIATFD*, *iX, • DTP PF'itMCF* 

. 7X, TTMF«, ?>X, 'VI.DI PAHGF*, 

. 6X, ‘SPP RANGE*, 7X, *I!» HANGR* / IX ) 

3D0 FORfATflOX, P#v.O, PX, Fft.O, FX, F7.2, BJ „ P7.2) 

400 POVFAT(*-S*»?l (DIFF.) /, N * *, F7.2 / 

, *05?pBT(Snn (riFF. *• 2) / (N • 1)) • *» F7,3) 

lono FOPFAT(200AO, 1RftA6) 

20'>0 PORFAT(200PG, 1, 
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?r:; Distribution 
fpCH: .T. r. Pylaarsflan 

SnpJFC'^tiioilifications to data on tap^ S2PD09 

As flescrlbe'i in Watts* nenorandum of July 2, 
1974, a nrocessinci error during ganeration of data 
tap*»s 5F.P007 through SEPO10 resulted i.i the loss of 
snail amounts of dP data for 4» fl.1» 16» and 32»1 

megahertz. These losses lead to erroneous 

correlation of the dP data with the range 

information, which was processed correctly. This 
memorandum describes a procedure for producinj a set 
of data which is correctly latched, by reaovlng range 
data corresponding the the dP data which were lost. 

In the context of ly report (Apollo 17 SPP Data 
rror<»ssinq - July 1974) the processing is perforied 
by progran 10BACPY6, using file »CI2 as inout. The 
modified data are designated as file SCT2S ; this file 
ir of exactly the sane foriat as file SCI2, and 

contains all the sane data, except for the changes 
described. Pile SCT2B is intended as a replacenent 
for file SCI2 in any of the processing functions 
described in the report. (Howewer, since sone of the 
lisslng data occurred during the turn at KP-4, no 
processing by inilAPI,T4, L0HACPY4, or AMTRKHAO was 
attempted, and none is recconaended using the 
aodifled data.) 

The following is a recapitulation of Vatts* 
description of the errors including one ites which 
was not explained in his nenorandua. 

for each frequency, B • 400 data words were 

assenbled in nenocy for each conpoaent, where a • 1, 

1, 2, 4, a, and 13 for freguencies of 1, 2.1, 4, B.l, 

and 32.1 neqahertr respectively. Than n blochs 
of length 387 words were defined, with origins of 1, 






- 2 - 


001, ,,,, (ff - 1) « 400 ♦ 1; the origins should hatrs 
been 1, 388, (H - 1) ♦ 387 el. What is not 

Bade clear by Watts* sesorandos is that the first H 
words of the first block did not contain data, and 
were discarded; hence N blocks, each 2 I ISfi 

w ords * were written on the output tape. Theo*’output 
block i would contain 

(a) the last 387 - (*l - i ♦ 1) words of block i, 
followed by 

(b) the first 8 - i words of block i ♦ 1. 

». 8 . 

^^) part (b) above does not apply to output block 
8 (8 ' i s 0, and block i ♦ 1 do«s not 
exist) . 

(2) if the above*sentioned origins had been 
defined correctly, then the above definition 
of output blocks would yield the desired 
result. 

(3) In the cases where R * 1, the data on the 
output file ace correct. 

(4) The last (R • 1) ♦ 11 words of the last 

output block do not contain data. 

The words which should have been used to assesble 
the output blocks are given in table 1; those which 
were used are given in table 2. 

In the light of the above discussion the 
folloving procedure can he derived for satching the 
range data correctly to the erroneous iB data. 

Raving assenbled the R blocks of length 388 in 
nenory, define a sat of "incorrect** block origins 
corresponding to those used in watts* processing; 
since the R words tre no longer present at the 
beginning of the <lata, this series is now 1 - R, 801 
- R, ..., 400 • (H - 1) ♦ 1 - R. Taking the length 
of these blocks as 387, s new set of 1 blocks, each 
of length 386, say be generated by selecting and 


S 





- 1 - 

(I) 

roasscabling portions of th« blocks as laser in 
(a) abova, and addinq 11 • fH - 1) wotis of paddinq 
to ♦he end of the last block. 

The Nords ased to asseable the blocks of aodified 
ranine data are indicated in table 3* 

A listing of pcogcaa 10NACPT6 begins on page 
seven, folloving the listing is an updated set of 
plots, designated SCT?BH, produced by LUMAPLT5 froa 
file SCIPq. 



1 m 
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Block 

4 nnz. 

8.1 H8S. 

16 R8z. 

32.1 HMz. 

f- 

1 

3- 388 

5- 390 

9- 394 

14- 399 

& 

2 

389- 774 

391- 776 

395- 780 

400- 785 

i 

3 


777-1162 

781-1166 

786-1171 

L 

4 


1163-1548 

1167-1552 

1172-1557 

5 



1553-1918 

1558-1943 

f- 

6 



1939-2324 

194 4-2329 


7 



2325-2710 

2330-2715 

'A 

<1 



2711-3096 

2716-3101 


1C 

11 

12 

13 


310 2- 34 87 
148^-3873 
3874-4259 
4260-4645 
4646-5031 


1 - l.oc 4 tieRS vliich clio«X8 hmvm bten afl#8 to 
ftsoOMblo blocks of 6B l4tm foe filo SCI2« 


-.<5^ » 


r mfis H iani 


- S - 


Cl 

Block 4 MHz. 8.1 MHz. 16 NHZ. 32.1 HHz. 


1 3- 387 

401 


5- 387 9- 387 

401- 403 401- 407 


14- 387 
431- 412 


2 

402- 774 
(775- 787) 

404- 787 
901- 802 

408- 787 
801- 806 

413- 787 
801- 811 

3 


803-1187 

1201 

807-1187 

1201-1205 

812-1187 
120 1-1210 

4 


1202-1548 

(1549-1587) 

1206-1587 

1601-1604 

1211-1587 

16C1-1609 

5 



1605-1987 

2001-2003 

1610-1987 

2001-2008 

6 



2004-2387 

2401-2402 

2009-2387 

2401-2407 

7 



2403-2787 

2801 

2408-2787 
280 1-2806 

8 



2802-3096 

(3097-3187) 

2807-3187 

3201-3205 

9 




3206-3587 

3601-3604 

10 




3605-3987 

4001-4003 

11 




4004-4387 

4401-4402 

12 




4403-4787 

4801 

13 




4802-5031 

(5032-5187) 


Tabl 4 ? - Locations which wars ussd to assssbls 
blocks of dB data Cor fils S2I2. 
(Locations in parsnthssas contain 
■saninglsss inforsation.) 


O 




I>>iy-j>^3l»^-g->t ' 7g^y^~rft^ 
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•r 


Block 

4 

HHZ. 

8.1 HHZ. 

16 MHz. 

32. 1 NHz. 

1 

1- 

399 

385 

1- 383 
397- 399 

1- 379 
393- 399 

1- 374 
38 8- 39 9 

2 

4C0- 

(773- 

772 

785) 

400- 783 
797- 798 

400- 779 
793- 798 

400- 774 
78 8- 798 

3 



799-1183 

1197 

799-1179 

1193-1197 

799-1174 

1188-1197 

U 



1198-1544 

(1545-1583) 

1198-1579 

1593-1596 

1198-1574 

1588-1596 

5 




1597-1979 

1993-1995 

1597-1574 

1988-1995 

6 




1996-2379 

2393-2394 

1996-2374 

2388-2394 

7 




2395-2779 

2793 

2395-2774 
278 8-2793 


8 

9 

10 

11 

12 

13 

Table 3 - 


2794-3088 

(3089-3179) 


2794-3174 

3188-3192 

319 3-3574 
3598-3591 

3592-3974 

3988-3990 

399 1-4374 
4388-4389 

4390-4774 

4788 

4789-5018 

(5019-5174) 


Locations used to asseible blocks of 
range data for file SCI2N* (Locations 
in parentheses contain padding.) 


O 


ono onno onn 
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if 0i^*»m*m***0^*ir^00t*****i* *********************** *** 

* * 

* LOHACP76 * 

* * 

0**: a t**l*;il******m** *1***1 ****00****i****0*******,t‘*** ********* ************* 

C PRORfeAM TO GENERATE A MODIFIED VERSION OF FTIE *2 , TN WHICI' 

r t:ie range data coepfsponding to missing db information havf 

C i<EFN DELETED. 

c 

TNT5GER*4 MM (4) / 2, 4 , 0, 13 / 

P.EAL+4 DATA (6000) 
r 

C COPY ALL THE DATA WHICH REQ'»IBE NO MODIFICATION - I. F. THE 

C LAPFL RECORD THROUGH THE 2 MHZ, DATA. 

C 

no 10 I = 1, 29 

PtAD (1, 1000) (DATA(J) , J = 1, 579) 

WRITE(2, 1000) (DATA{J), .1 » 1, 579) 

10 CONTI NOE 
C 

C LOOP OVER THE POOR FREOOENCIBS WHICH RE0”I’'F MODIFICATION. 

C 

DO 150 1=1,4 
H = MM (I) 

10 RG = 1 
TEND = 1R6 

READ THE M BLOCKS OF RANGE DATA INTO MEMORY. 

DO 20 J = 1, N 

READ (1, 2000) (DATA(K), K = lORG, lEND) 
tCPG = lORG ♦ 386 
IFND = IFND ♦ 386 
20 CONTINUE 

ID IS INITIALIZED AS THE FIRST WORD OP THE FIRST GROUP 
OF 13 WORDS TO Ef DELETED. 

ID = 388 - M 

MMI IS THE number OF GROUPS OF 13 WORDS TO Ef DfLETED. 

MMI = M - 1 

N IS THE number OF WORDS TO EE MOVED PROM THE RFGINNING OF 
BLOCK .1 ♦ 1 TO THE FNO OF FLOCK J, (INITIALLY H - 1) 


‘t"": ‘■-■y 




O 



m » 


M = MV, 1 

ov-'f; 'in’? OF 13-woPD r.fioups. 

no An .7 = 1, 

T’-ft'Jsrnr^ N WORDS FROfl BLOCK J ♦ 1 *^0 BLOCK' .1. 

DO «0 K = 1» N 
Jf) = TD ♦ K - 1 
.IS = JR ♦ 13 
DATA (JO) = RATA(JS) 

CONTI MU F 

FCK (;«n;jp J ♦ 1, N is nPCREMEKTFU f-Y 1. 

N = N - 1 

TliK BfjOTNlUNO OF OHOllP J ♦ 1 TS 400 VOROf) '’Tj- 

niGlNNiwf; OP ortOBP J. 

1.1- = ID ♦ 400 

Jl/ IS C"HhF.MTLY TUB IHDFX O’' Tin; 1HA»TH V-i i. CF hiOCK 

J; SF? .IS *^0 IPDEX THii 1 * ST 'WOUI), ANH '"MF.'l V-i-.I'Ii- *i :i -L» fK 
UN Till-; OOTim-r HLF. 

JS = JD - JO'i 

WM';P(.i, ;^OnO) (DATA(K), K = JS, JD) 

3000) (DMA(fC), K = JS, JD) 

CONI INn^i 

C0.M’LP'''!2 OUTPilT riOCK M flY PLACING TI!R I ASI CODNFC. i'.Vloi: 

VAL»'p (CONTAINir ) < WOPD N) 

N = 3B0 * H 

TN VHP NN LOCATIOKS DWINNING AT LOCATION N ♦ 1. 


NN * U * HMl 
DO PC J e 1, Ntl 
.ID * Si ♦ J 
DA"’A(Jn) * DATMN) 

CONIINOiL 

rHH FIRST WORD OF TUP, 0nTP»»T EtOCF IS C(»fti ’IT EL A.S AOOV’-, 
AND rr?: llockis whttkn (’N ynf oiitpbt m.’. 




9 








L 

(' 

C 

( 

f' 

< 

c 

c 

c 

(.• 

r 

C 

0 

c 


100 

1 10 

120 
1 4C 
VjO 


1 100 
2.>or 
1000 


j;. - JO - ii;S 

jooo) (DATMK) , - jr., .jo 

.K'OO) (!ATA(K), K = JS , .JO) 

j>-’DlF?Ut N TIIF LAS"^ VAT.TD WORD (W I'M' [?•! 'f-j' ].fl:rr i 
0^ or I'ATA 

f) = Uif. - NN 

i(n; CO.-iPON '-■K'T , 

!io 14' IC - 1, f' 

OOAO « OLOCK.S OF I)b DATA. 

.)f> 120 J -- 1, M 

i> -M) (1, 2000) (DATA(K), K = 1, Vi< ) 

Fill'; ai/'CK'J 1 TUPOIlttH M - 1 OM ?;!F OIJTPMT ni, 

F) 00 TO 110 

KII.L I.A55T NN WOP 051 OP IloC); F WTTi! fACl.i'.O 

WHITr4(.; it on THP . 

no 100 K = 1, KM 

.in = N ♦ K 

DATA f.lD) = -1 r>. 

CON'^IMtJF 

CONriMOF 

w::iTE{2. 2000) {DATA(i(), K = 1, 10*0 

CrN‘»'I'<OF 
fONTiK’ij;; 

C<'1!TI MOP 
2i;T0F<r 

F Jt'i^'A ' (210A4 , 200A4, 179A4) 

I’orfiAT (i’O'U’o. 1 , 1H».F6, 1) 

Foi'MA’M'O • / *-», 1*>Ph,1 / 25(1X, I'.IM, 1/)) 

UMi) 


K) 



















































wr»»o5r,r.'nftff 


jtil / ri, i-^Ta 



Oisrribution 

rpnr»; . 1 , p, Ry]aars>l.»tB 

rjnp.V'C"^ t POBipar ison of sft’ Ranq*? r>d*-,^ an? '^ata 
'roBi th(- VLPI 2xperi»«nt 

Th-e VI.PT data us«»(l for this •^t.u!'/ w->ro ohr.-iir.ed 
from number H2THS (Goddard .‘'nacp Flight fonrre) 

at; a s*t of x-y coordinate pairs; is,iociat«'d with the 
first fiair in each oroup of five wa:.» a time (Grenwich 
r* an) .'xpresGod in hours, minutes, an ? st-conds. 

times were converted to second «, aiil tim**s for 
tl.p four remainin'! pairs in each jroun worn <j-»T!or=i ted 
? y addiru values of on.', two, tnc« », and f.-ut seconds 
*0 th-® ini^-ial value, ’’’he x-y pairs wjre convirted 
to distances. 

•"he lata consisted of the sixt^'U me jahertz 

ranqe values from tape numboi SRPoIO. The ti»‘ (G!1) 
corr‘'spor.din ! to the first daium wa 5 '.et at 14P7.4 
K.rondw; times tor succsedinq values w^re 'jonerated 
by repeated addition of C.81 second, the ♦l«e 
ii. terval between samples. 

Por each VU<T range datum, t rorr-^srotiding SFP 
rare® value was computed by llne.ar interpolation, 
usiru the two arrays of time 'Itta; th' difference 
hf>r-ween those ranges was calculate? as the V1!'T range 
mirur. the interpolated SFP rargt. The differences 
o?.t;,ii>.d are plotted in figure 1; in this plot, the 
data aie grouped into ten- second intorvils, and the 
raximum and minimum differences over e-ich i nt''rval 
ar« disnlayed. The mean of these differences was 
^ound to be -23,94 metres (indicating 1 lag in the 
VL^'T data), and the ticandard deviation of the 
di f fvr-’nces was effectively zero, considering the 
limits oF precision of the calculitlor.a, 

A more direct visual comparison 1;? provid*'! by 
figur<-' 2, in which both sets of data ate plotted on a 
single set of axes. 
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July 22, 1974 


MEMO TO: D.W. Strangway 

FROM: James Rossiter 

RE: SEP Antenna Patterns Reconstructed from EP-4 Turn 

Introduction 

During EVA II of Apollo 17, the Lunar Roving Vehicle 
(LRV) made a complete 360* turn around the deployment site 
of Seismic Explosion Package 4 (EP-4) , about 525 m. from the 
SEP transmitter site. This turn provided an opportunity to 
estimate the directional characteristics of the three orthogonal 
SEP loop receiving antennas, as mounted on the LRV, over a 
dielectric earth. 

t 

Ideally, any signal received by the (radial) antenna 
should smoothly interchange with the signal received by the 
H. (tangential) antenna as the LRV goes through each 90* of 
the turn. The H_ (vertical) signal should remain constant 
throughout the turn. If the turn were of zero radius, any 
deviations from the above could then be attributed to 
interference by the Rover and/or mount. 

Data Reduction 

Data were taken from Watt's lunar tape SEPD09» which 
included the error noted in his memo (July 2, 1974). Details 
of the organization of the data after their removal from tape 
are given by Rylaarsdam ("Apollo 17 SEP Data Processing", 

July 1974) . The following steps were then taken in order to 
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get antenna pattemplots. 

(1) The values of all 36 components over the entire range 
of the turn (493 to 538 m. from the SEP site) were removed 
from Rylaarsdam's file SCI3 (which included no pre-processing 
of the turn by Watts) . These values were stored in a new file 
called EP4, listed using program LUNACPY4, and plotted using 
program LUNAPLT4 (and routine 6APL0T) . The points w^re 
spaced according to the time scale Implicit in the data; 

an exan^le is shown in Figure 1. 

(2) Odometer counts (one count ■ 0.49 m. of wheel turn), 
received from both the right front and left rear wheels of 
the LRV, are available for each 1.02 seconds of the traverse 
(see memo by Redman, July 16/73). Ideally, given a high density 
of odometer pulses, and assuming no wheel slippage or sticking, 
LRV speed and rate of turn could be completely determined. 
However, the coarseness of the odometer pulses prevented this 
detailed reconstruction (see Figures 2 and 3) . Antenna 
patterns plotted using the navigation data (see Rylaarsdam's 
report) were far less consistent from component to component 
than were those plotted assuming the LRV speed to be constant 
during the non-stationary portions of the turn. 


0 


Therefore a template with three pairs of bounds was set 
up to separate the points that were recorded while the LRV was 
actually turning from those recorded while the LRV was either 
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on its traverse leg or stopped. By using con^onents that 
had a good deal of character , the times during which the LRV 
was stationary were easily distinguished on the set of plots 
like Figure 1, The end-points of the turn were more difficult 
to estimate, and consistency from con^nent to component 
was the only criterion available. 

Unfortunately the 16 and 32 MHz data could not be used 
to construct the template, since both of these frequencies 
contain a drop-out due to Watt's spooling error during the 
turn. 

(3) The total angle through which the LRV turned was 
calculated in the following way: 

Assume there is no net slippage or sticking of either 
wheel ever the turn. Then, for each wheel, 

c * nnr, (1) 

where c * the circumference of the turn made by the wheel 
B total number of counts x 0.49 meters; 
nir B number of radians of the turn; and, 
r B radius of the turn (m. ) . 

Therefore, 

nir B (Cq - c^) X 0.49 (2) 

^o ’ 

where c ** c. * the difference in odometer counts between 
o X 

the two wheels over the turn (see Figure 3); and, 
r^ - r. ■ the distance between the two wheels 

O 1 

- 1.73 m. (Apollo 17 LRV Manual). 







For the turn, “ 21^2, 

therefore, nir » 6.04;P*5 radians. 

Although this is evidently a fairly crude estiinate, 
it indicates that the turn was close to 360*. 

(4) The portions of file EP4 detesrmined by step 2 to be 
actually in the turn proper were plotted as a function of 
angle using program ANTENNAO (and routine ANTPAT) . A complete 
set of patterns is shown in Figure 4. The angles stai t along 
the negative x-axis, and increment uniformly clockwise over 
2v radians. 

Discussion 

Basically the plots show the expected type of behaviour. 
The vertical components are fairly smooth (except those whidi 
have very low signals) , with few lobes, while the ^ and 
components do interchange. It must be pointed out that the 
16 and 32 MHz plots do not contain any angular correction for 
the missing points, and this wil3 certainly create some amount 
of distortion in the patterns. 

Several of the plots do not align well with the north- 
south and east-west axes - e.g. 4NHs endfire. This is 
possibly due to an incorrect choice of either the bounds or 
of the total angle. 

The major obstacles in bbtalnlng good patterns from this 


analysis are as follows: 

(1) Very poor sampling for the lower frequencies (as few 
as 8 points for a complete turn at 1 and 2 MHz ) , giving 
virtually no resolution of any lobe structure. 

(2) Non-constemt range of the LRV through the turn for the 
higher frequencies. The turn had a diameter of approximately 
15 m > or about 1.5 wavelengths at 32 MHz. Therefore the 
signal received during the turn could have changed substantially 
quite independently of LRV rotation. 

(3) Lack of direct knowledge of a) the exact position of the 
turn in the data stream, b) the complete angle of rotation, 
or c) the speed of rotation. These could only be estimated, 
and compatibility from component to component used to improve 
the estimate. The problem was particularly severe because 

of the drop-outs at 16 and 32 MHz. 

(4) Unknown source signal. It is evidently not a plane wave, 
since the SEP transmitter was used. Reflections and scattering 
from the subsurface may well have had important influences on 
the type of pattern. 

Conclusions 

Considering the above problems, the amount of distortion 
of the patterns is within the error of the analysis. Hz 
appears non-directional at all frequencies; Hy and H^ 
Interchange smoothly through the turn. It is therefore not 
possible to attribute any large degree of interference to the 
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LRV or mount. This does not imply that such interferences 
did not exist - only that this analysis was not able to detect 
it. 

It would probably be worth while in the future to euialyse 
the data without the drop-outs at 16 and 32 MHz. These 
frequencies have both the highest resolution and are most 
likely to be susceptible to interference from the LRV or mount. 
A systematic attempt to use a nundt>er of different possible 
bounds and rotation angles may locate the turn in the data 
stream better. If so, such a study could be more definitive. 







Figure 4. SEP antenna radiation patterns from EP-4 turn 
for all components. Since choice of the exact position of 
the turn is somewhat arbitrary (see text ) , these patterns 
are only approximate. 

16 and 32 MHz each suffer a 13-point data dropout 
during the turn in these plots. This has not been 
corrected for in any way. 
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